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WARRANTEE INFORMATION 


The Text Processor is provided AS IS without warrantee. 
Reasonable care has been taken to insure that the Text 
Frocessor Software operates as described in the Text 
processor manual. If you do find a situation in which 
it does not operate as described, please contact us. 
We will attempt to correct any errors brought to cur 
attention but we make no guarantee to do so. 
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PREFACE 


The SSB Text Processing System is one of the most complex 
programs released by SSE to date. With this in wind, tic 
following recommendations should be noted by the user. 


bo not expect to master the system with one reading of the 
manual. The entire document should be read lightly the first time 
through, followed by a more rigorous reading. The “Reference 
Manual" section is very concise and contains detailed 
descriptions of all of the commands of the processor. This is 
the section which should be studied extensively. 


Since the system is so complex, many results may occur which are 
contrary to the user's’ intentions. If strange output is 
encountered, reread the sections of the manual covering the 
commands being used. As more experience is gained, the systen 
will become an invaluable tool, but as with any complex system, 
it takes time to learn its operation. 


INTRODUCTION TG TEXT PROCESSING. 


This world is producing millions of words of text each Gay. 
There are words in newspapers, magazines, books, catalogs, 
pamphlets, letters, documents, and manuals, and they all need to 
be organized before publication. It would certainly be a never 
ending task if all text formatting and organization were to Le 
done manually. It simply would not get done. Thanks to 
computers and programs called text processors, text formatting 
(sometimes called word processing) becomes a fairly trivial task. 
The text processor allows for convenient and precise page 
formatting and organization. The final copy becomes’ extremely 
readable and neat, which are desirable features of any printed 
matter. 


Just what can be done with text processors? The simplest 
functions perform exact page fitting. In other words, if the 
text page should have one inch margins with a page number 
centered at the bottom of each page, and perhaps a special title 
at the top of each, the processor will automatically provide 
these, given the appropriate commands. Line justification is 
another feature provided. Several types are available which 
include left-hand justification (left edge straight, right edge 
ragged), right-hand only justification (left ragged, right 
straight), left and right (both edges are straight), and center 
justification (both edges ragged kut lines’ centered). An 
extensive text processor will provide features which will allow 
special operations such as_ footnote processing. The SSB Text 
Processing System supports all of the above features. 


To gain some insight into the use of a text processor, 
several specific examples will be given using the SSE Text 
Processor's command set. The commands used by text processors 
vary from system to system but many are used in the same fashion. 
The SSB Text Processor uses an intermixed command and text 
method. To issue a particular command to the processor, it is 
necessary to start the command in column number one of a new line 
ana begin the command with the control character, a period ('.'). 
This is the method used by most of the large scale system 
formatters including NROFF*, which is the system the SSB Text 
Processor has been modeled after. 


Before any specific examples are shown, a description of the 
‘environment’ will be given. The environment refers to the basic 
page and formatting features which will be in effect unless 
otherwise specified. The initial or default environment is very 
important. The SSB processor, without any command information, 
will perform left and right justification with a line length of 
65 characters (the standard 8 1/2" page line width). Page length 
is initially defined to be 66 lines which is the standard for 11" 
paper and 6 lines/inch’ spacing. Other initial environment 
features provide for the passing of blank lines to output, ana 
*NROFF is a text formatting program written at Bell 
Laboratories. It runs on many large operating systems, 
including the UNIX Time Sharing System. 
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for any line starting with a space or spaces to create a new line 
with the spaces now treated as unpaddable space characters*, 
With the environment initialized as above, it is possible to take 
any text file not having special command information embedded in 
it and still receive a sensibly formatted output. This is an 
important feature which is often overlooked by many processor 
designers. The environment may, of course, be changed or modified 
at any time by the use of special commands to allow for more 
personalized and detailed formatting jobs. 


Let's take a look at some specific commands of the SSB 
processor. One of the simplest commands’ is the center lines 
command, .CE N, where N is the number of lines to be centered 
within the current line width. To use this command, as with any 
of the commands, it is only necessary to place the command right 
before the lines it is to affect. For example: 


CE 2 
The Design of Text Processors 
An Introduction 


will cause the two lines listed to be neatly centered on the 
page. It can be seen that this is much easier than trying to 
manually calculate the correct spacing. 


The initial environment was previously described. All of 
the parameters may be easily changed by the commands which 
directly affect them. One of the commands is .LN N and is’ used 
to set the current line length. To set the line length to 58, 
all that is necessary is a command line which reads as follows. 


~LN 58 


The length is now 58 columns. Another parameter easily set is 
the page length using the command .PL N, where N is the number of 
lines per page desired. Some other commands which change 
environment parameters include .FI and .NF which turn fill mode 
on and off (no fill) respectively. Fill means that as many words 
which will fit within the current line length are placed on each 
output line. This gives a straight left text edge and a slightly 
ragged right one. No fill simply copies the input lines directly 
to the output. It should be noted that 'fill‘ must be on for any 
justification to occur. The justification feature may be turned 
off using .NJ for 'no justification’ or the type of justification 
may be set using .JU X. The X is the selection character and may 
be null which turns justification on in the mode it was 
previously defined, it may be R for right hand, C for. centered, 
or N for normal (left + right). Left justification is obtained 
by turning 'fill' on and justification off. 

*Unpaddable spaces are characters which appear as spaces on 

the output but are not recognized as such by the processor. 

This means these spaces will not be ‘spread out' by the 
justification routines. . . 


SSB Text Processor User's Manual 
Version 2.84 


Another environmental parameter is the capitalization mode. 
This feature of the SSB Text Processing System allows an upper 
case only terminal to be used for preparation of text which will 
later be output on a hardcopy device having lower case 
capabilities. The commands .CP and .NC turn this feature on and 
off respectively. If this mode is on, all letters are 
automatically converted to lower case unless preceeded by a ‘e'. 
The '@' should be thought of as a typewriter shift key in its 
function. Another feature also enabled in this mode is similar to 
the ‘shift and lock' on a_ typewriter. By typing a ‘'“' all 
characters following will be upper case until another '*' is 
encountered. 


It is often desirable, for readability, to use multiple 
Spacing between lines. The SSB processor will allow this using 
the command .MS N where N is the space count desired and defaults 
to double spacing (N=2) if no value for N is given. The single 
Space mode can be restored by either using .MS 1 or .SS for 
‘single space'., 


Another group of commands deal with left margins’ and 
indentation. The left margin is normally set to 6 since the 
output device usually provides its own left margin (determined by 
paper positioning). Some applications reguire a wider margin at 
which time .LM N may be used to redefine it to be N spaces wide. 
Indent is similar to the left margin control with one difference. 
-LM N-' preserves the line length and simply moves the line to the 
right N spaces. .IN N, on the other hand, effectively reduces 
the line length by N columns in order to preserve the right hand 
Margin. Setting the indent back to @ will restore the full line 
length. Another form of indenting can be done by the use of the 
Single indent command .SI N. Single indent is identical to 
indent except it is automatically restored to # after the line is 
output. It should be noted that the commands for left margin, 
indent, and single indent are additive in that if the following 
string of commands is issued: | 


~-LM 18 
-IN 8 
~SI 5 


the resultant output line would be preceded by 23 spaces. 
Succeeding lines are preceded by 18 spaces assuming another .SI 
command was not used. : 


A note of caution is necessary concerning a characteristic 
of several of the processor's commands. Most commands will 
perform only their specified function but some also cause a line 
‘preak'. A break is the forcing of output of the line currently 
being collected in the line buffer. Normally a line is kept in 
the buffer until the specified line length has been reached, at 
which time justification may or may not occur, depending on the 
mode enabled (also assuming that 'fill' is turned on). The break 
will cause the partial line to be output without being filled, 
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but the appropriate justification will be performed. This is 
useful for starting new paragraphs or new blocks of text. Some 
of the commands which cause a break are .CE, .FI, .NF, .IN, and 
-SI. Sometimes it is desirable that these commands do not cause a 
break. This can be done by using the ‘no break' control 
character, ‘':'. So far, all commands have been shown preceeded 
by the normal control character, a period. To set an indent of 
1@ and not cause a break, the following should be used: 


:IN 19 


The colon may be used with any command, whether the command 
normally causes a break or not. 


It is often necessary to produce a section of one or more 
blank lines. The space command, .SP N, can be used to output WN 
blank lines. The space command also causes a break. If N is not 
specified, the processor will output 1 blank line. It may be 
required that the blank lines all be on the same page, maybe for 
later insertion of a photograph or illustration. The SSB Text 
Processor allows this by using the ‘save space' command, .SV N, 
where N is the number of lines required. If there are not N 
lines remaining on the current page, no line is output but 
instead, printing continues and the count (N) is saved for later 
use. When the next page is reached, the ‘output saved space' 
command may be used, .OS, which will then produce the remembered 
number of blank lines. A convenient method for using .OS will be 
given later. Another similar command is the ‘need lines' 
command, .NL N, where N is a line count. This command says that 
there must be N lines remaining on the current page, and if there 
are not, eject to the next page. This is convenient for keeping 
special blocks of text together (keep them from being split by 
page boundaries), or for not starting a new paragraph at the 
bottom of a page if only 1 or 2 lines will fit. 


The commands which have been described so far will allow 
very nice page formatting. If these were all that were available 
in a text processor, much time and effort would be saved. The 
SSB Text Processing System, however,-offers many more commands 
and much more versatility. One feature often needed in documents 
Or manuals is the:page title. There are many different ways of 
providing titles but the SSB processor uses a title command which 
has the form: | 


.TL 'fieldl'fieldzZ'field3'" 


where fieldl is left-adajusted, field2 is centered, and field3 is 
right-adjusted. Any one or all of the fields may be present. 
Another feature supported in the SSB processor is the ability to 
Print the current page number in the text. Any place a percent 
sign (%) appears, it will be replaced by the page number. A_ few 
examples will clarify the use of the title command. 
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TL ‘Main Title''' 
-TL ''Centered Title'Date' 
TL trogwis 


The first line will left adjust "Main Title" on the page. the 
second example causes "Centered Title" to be centered and "Date" 
to right adjusted. The final example will cause the current page 
number to be printed between two dashes, 


Now it would be nice if there was some way of getting the 
title (and maybe a few other commands) to automatically execute 
at the top and/or bottom of each page of output. The SSB 
processor offers two advanced features to perform this’ task: 
macros and traps. A macro is a set of commands grouped together 
and given a name. When this name is later referenced, the entire 
group of commands will be executed. Essentially, what results is 
the ability to write special programs using the command set of 
the processor to do specific tasks such as headers, paragraphs, 
special titles, etc. The trap allows the user to specify a 
certain line on the output page where a specific macro is to be 
executed. To solve the title problem stated above it is 
convenient to define two macros, a header macro and a footer 
macro. The purpose of the header is to perform a sequence of 
commands to make the top of each new page appear the same. The 
footer macro works at the bottom of each page. Suppose it was 
required that the top of each page have’ three blank lines 
followed by a centered title and the bottom of each is to contain 
a centered page number between dashes. The following macros and 
trap placement would satisfy this requirement. 


»~DM HD 

:SP 3 

-TL ''Page Title'' 
:SP 3 


~DM FT 

:SP 3 

TL ''=%-!''! 
:PG 


eAT 1 HD 

eAT -7 FT. 
The .DM command is used to define a macro and the first one 
listed in the example defines the header macro called HD. The 
header macro will space down 3 lines (without causing a break 
since the no break control character (':') was used), print a 
centered title, and finally print 3 more blank lines without 
causing a break. The last line of the header macro definition is 
'..' and is the command for terminating a macro definition. The 
second macro defined is FT and is used for the footer. Upon 
execution it will space down 3 lines (without a break), print a 
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centered page number, and eject to the next page. The .A 
commands were used to set the trap locations. .AT 1 HD causes 
the header macro to be executed at line 1 of every new page while 
-AT -7 FT causes the footer macro FT to be executed at the 7th 
line from the bottom of each page. The ability to specify trap 
locations and define macros makes titles and footers extremely 
simple and efficient. 


One of the important aspects of using a text processor is 
the ability to make a few minor command changes and greatly 
change the final copy. As an example, suppose at the last minute 
it was decided that it would look better if there were four blank 
lines at the top of each page rather than three. If the document 
were being prepared by hand it would be necessary to retype the 
entire work to obtain the extra space. Using a small text 
processor it would only be necessary to go back and change the 
line count before each title. The SSB Text Processor anda its 
ability to define macros means only one line in the entire text 
File needs to be changed. the second line of the header macro 
which is currently ':SP 3' would be changed to read ':SP 4'! One 
simple change and the desired result is obtained! It should be 
kept in mind that when preparing documents with a processor 
Supporting macro capability, all of the. often-used command 
strings should be defined in a macro so simple global changes may 
be easily performed if so desired. 


There are more advanced features supported in the SSB Text 
Processing System. One of these is the ability to do conditional 
command execution. There are four forms of this command: 


IF O .Xx 
~IF E .XX 
oIF N .XxX 
IF !N .XX 


where © and E stand for Odd and Even page number respectively, 
and N can be a number, a number register (to be explained 
shortly), or an expression containing numbers and number 
registers. The exclamation point is the 'NOT' operator and .XX is 
any command or macro name. The command works as follows; IF the 
condition is true (page is odd or even, or the number or 
expression is greater than zero) the command Xx is executed, 
otherwise it is not. Preceding the expression by '!' will cause 
the command or macro to be executed only if the condition is not 
true (less than or equal to zero). The following special header 
macro definitions will illustrate the use of this command. 


~DM HD 

:SP 3 

eIF O .TL '''Title' 
LF E «TEL *Titlke’?’ 
:SP 2 
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~-DM HD 
:SP 3 
IF %$-1 .TL ''Title'' 
:SP 2 


The first header defined causes the title to be right-adjusted on 
odd numbered pages and left-adjusted on even pages. The second 
definition will print a centered title on each page except page 
number one since the value of the expression will be zero when 
the page number is one (remember that the '‘'%' represents’ the 
current page number). 


Another feature contained in the SSB processor is the 
ability to use number registers. Two types exist, one which 
allows the user to read and access certain system parameters 
including the date, page number, current indent, left marcin, 
current column position, current line on the page, and _ line 
length. The second type are user definable and can be used 
exactly as variables would kte used in a program. Number 
registers are the single letters A-Z and the percent sign (%) 
already introduced. Several other number register features are 
supported by the SSB processor, including auto increment, 
assigning values to the registers, use in expressions (as seen in 
the .IF command), and the ability to print any register on the 
output in either Arabic, capital Roman, or small Roman numerals. 


Some processors, including SSB's, allow communication 
between the processor and the operator during actual text 
processing. Three of these commands take on the following form: 


eoT 
-TM any string 
-GI any string 


the first command will stop the processing and print 'STOF' on 
the user's terminal. This may be desirable if special paper 
positioning is required or other special action is needed. When 
the processor has been stopped it may be restarted by typing any 
character on the terminal except an ‘'S‘' which will halt 
processing. The second command listed will send ‘any string’ to 
the terminal as a special message. It may be used before the 
‘STOP' command to issue special instructions to the operator. 
The last command will ‘Get Input' from the terminal and insert it 
into the output stream. ‘Any string’ can be used for a prompt. 
An example where this command is quite useful is in the 
preparation of form letters. The processor may. prompt’ the 
operator for names and addresses which are then typed in at the 
terminal and automatically inserted into the text! 


One final command will be described in this introduction, 
the ‘divert text' command. Sometimes it is desirable to save 
text currently encountered for later use. An example of this is 
when trying to do footnotes. It would be nice if immediately 
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after the footnote reference was made, the actual footnote text 
could be typed, but saved for later insertion at the bottom of 
the page. The mechanism which allows this sort of operation is 
called a ‘'diversion' and is only available on the more complex 
text processors, such as_ SSB's. Iwo forms of the diversion 
usually exist: 


~DI XX 
DA XX 


where .DI instructs the processor to divert the following text 
into a diversion space named XX and .DA says to divert and append 
to the diversion space named XX. During diversion, all normal 
text processing still takes place, but rather than outputing the 
text to the printer, the text is written to a special place 
internal to the processor. The diversion process continues until 
the command for a divert is found without a name specifier. To 
recall the diverted text, it is only necessary to call it by 
name, exactly as macro calls are performed. 


AS an advanced exercise and demonstration of the diversion 
process (as well as many other processor commands) a complete set 
of macros for handling footnotes will be described. The reader 
should note that the following example is very complex and 
several readings will probably be required in order to fully 
understand its operation. 


-NR B 7 
«DM 
:SP 
~ IF 
:SP 
eAU 
-NR 
eNR 
elF 
eNS 
~DM FO 

-NR V @ 

~IF #X .FT 

:PG 

-DM NM 

TL ''-%-'! 
DM BF 

eLA TX 

EV 1 

~lF !#+X-1 .SA 


oO 


! 
~~ 


-TL ‘FOOTNOTE TEST''' 


tHE OS HN op 


- continued on next page - 
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~DM EF 
EV @ 


-NR W -#V 
~CH FO #W 
~IF #N-#P-#W .CH FO #N+1 


wm one om ee om ee een om ee oe om ew er ow on oe ee oe ee 


~-CM TR 


-DM FN 
e-DI FE 


EV @ 


-AT 1 HD 
-AT -#B FO 
~-AT -4 NM 
-CH FO 78 
-AT -#B FN 
~-CH FO -#B 
~-EV 1 

~AU 1 

~LN 55 

EV 4) 


This example is quite similar to the one given in the "NROFF 
Users’ Manual“ written by J. Ossanna, of Bell Laboratories. to 
use these macros, merely insert their definitions at the 
beginning of the text file, and immediately after a footnote 
reference has been made, call Macro EF. Following the call, 
simply type the footnote text and end it with a call to EF. 


A description of the macros follows. The first line defines 
number register B and sets it equal to 7. Number register B is 
used to specify the size (in lines) of the bottom margin. A 
header macro definition follows (HD) and provides’ several 
functions. After spacing down two lines, the title is output 
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unless it is page number one (the IF command). ‘Two more lines 
are produced and the auto increment value is set to one. Number 
register xX is cleared and it is later used to keep track of the 
number ot footnotes on the current page. Next, Wis set to the 
location of the bottom margin trap and will later be adjusted as 
necessary if footnotes are added. The IF #V command checks’ to 
see if there is any remaining footnote text from the previous 
page and if so they are reprocessed (number register V contains 
the line count of the last diversion). Finally, the ‘no space' 
node is turned on to suppress any spaces which might otherwise 
get printed needlessly at the top of the page. 


The footer macro, FO, clears the diversion count, V, anda 
checks the value of kX. If X is not zero (meaning there were 
footnotes on the page), macro FT is invoked. The footer is’ then 
restored to its original location by using the Change command as 
aefined by B. The last command aoes a page eject. Macro NM is 
used to print a centered page number at the bottom of each page. 


The begin footnote macro, BF, starts with a divert append 
into the diversion space called TX. The environment* is 
Switched, and if it is the first footnote on the page, macro SA 
is invoked which outputs a set of dashes as a simple footnote 
separator line. Diversion of the footnote text continues”) until 
macro EF is called. At this time a ‘break' is executed and the 
original environment is restored. The diversion is stopped with 
the DI command. Number register W is updated by the number of 
Giverted lines and the footer trap line is changed to compensate 
for the added footnote lines. Finally, if the number of divertea 
lines was great enough to move the footer trap up past the 
current line position, the trap is reset to the next line. Tk is 
responsible for rediverting any lines of footnote text which will 
not fit on the page. It is very unusual for this to happen but 
this may occur if a footnote is very long and is referenced near 
the bottom of the page. 


Macro FT is used for reading back the diverted text. It 
switches environments, sets the no fill mode, and calls TX, the 
actual footnote text. TX is then removed from the macro list, 
the fill mode is’ restored, and the environment switched. The 
last group of lines is used to define the trap locations of the 
various macros. The header is set to line one, and NM is set to 
execute four lines from the bottom of the page. The trap for the 
footer is planted at -#B, then moved past the bottom of the page 
while FN is also placed at -#B. FO is then moved back as 
Originally placed so in effect both FO and FN are placed at the 
same line, but trap FN can only occur if the footer trap is moved 
up by the occurrence of a footnote. The last lines switch to 
environment one and initialize it for a line length of 55 and 
auto increment of one. 

*Environment switching is a feature supported by many of the 
larger text processors (including SSB's) which allows all of 
the major environment parameters to change simultaneously. 
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As a final example of how a text processor can be used, é 
sample section of text will be given. The text is shown first 
with the commands and then as the text processor would output the 


final copy. 


~SE 2 
Pe 9 ae” 
“TEST CF SEVERAL” 
“PROCESSOR COMMANDS~ 
SP 
~SI 5 
@THIS EXAMPLE SHOWS HOW COMMANDS AND TEXT CAN BE INTERMIXED 
FOR LATER PROCESSING BY A TEXT FROCESSOR. 
@THE EXAMPLE STARTED BY CENTERING TWO LINES FOLLOWELC 
BY A SINGLE INDENT TO SIGNIFY THE START OF A PARAGRAPH, 
@THE CAPITALIZATION MODE IS ON AND THE UPPER CASE SHIFT 
CHARACTERS ARE BEING USED. 
~SP 
-LM 10 
~LN 45 
sJUCC 
¢THE ADJUST MODE WAS JUST CHANGED TO CENTERING 
AS WELL AS A LINE LENGTH OF 45, 
@€THE LEFT MARGIN WAS SET TO 16 TO GIVE A NICELY 
CENTERED NARROW LINE. 
@SPECIAL EFFECTS LIKE THESE ARE EASILY ACCOMPLISHEL. 
SP 
.LM @ 
-LN 65 
.JU N 
@THE PARAMETERS WERE JUST SWITCHED BACK SO THE 
LINE APPEARANCE WILL BE RESTORED. 
THIS IS A.SHORT EXAMPLE BUT SHOULD SHOW HOW THE 
COMMANDS CAN BE INTEGRATED wITH THE TEXT. 


This example appears in its expanded form on the next page. 


This introduction to text processing is intended to be only 
that and is not a complete treatment of the subject. Many 
commands and features have been omitted. The ones included are 
the most general and the most used commands which offer the user 
a great deal of control and flexibility. Hopefully some eyes 
have been opened to the wide NarLCCY of applications of the text 
processor. 


-ll- 
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EXPANDED EXAMPLE 


TEST OF SEVERAL 
PROCESSOR COMMANDS 


This example shows how commands and text can be intermixed 
for later processing by a text processor. The example started by 
centering two lines followed by a single indent to signify the 
Start of a paragraph. The capitalization mode is on and the 
upper case shift characters are being used. 


The adjust mode was just changed to centering 
as well as a line length of 45. The left 
margin was set to 1@ to give a nicely 
centered narrow line. Special effects like 
these are easily accomplished. 


The parameters were just Switched back so the line appearance 


will be restored. This is a short example but should show how 
the commands can be integrated with the text. 


*NOTE: This entire user's manual was prepared using the SSB Text 
Editing System and the SSB Text Processing System. 
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COMMAND SUMMARY 


Command Initial Cefault Cause 
Form Value Argument Break* Explanation 


I. PAGE CONTROL 


~PL +N 66 lines 66 lines no Page length. 

~-PG +N N=] ~ yes Eject to next page. 
~PN +N N=] ignored no Page number. 

~LM +N N=6 previous no Left margin. 

»-NL N - N=] no Need N lines. 


II. TEXT FILLING, ADJUSTING, AND CENTERING 


~BR - - yes Ereak buffer. 

FI fill - yes Fill output lines. = 
NF fill - yes No fill or justification. 
60 2C jst,norm just. no Justify on. 

~ NJ just. - no No justification. 

~CE +N off N=] yes Center N input lines. 


TII. VERTICAL SPACING 


-MS N prev N=2 no Multiple spacing. 
SS single - no Single’ space lines. 
~-SP N - N=] yes Space N lines. 

~SV N - N=] no Save N lines. 

~OS = = no Output saved lines. 
~NS space = no No-space mode on. 
RS = - no Restore spacing. 
IV. LINE LENGTH AND INDENTING 

~LN +N 65 prev no Line length. 

-IN +N N=6 prev yes Indent. 

~SI +N _ N=] yes Single indent. 

»PI ST - - yes Put string in indent. 


Vv. MACROS, DIVERSIONS, AND LINE TRAPS 


~DM XX - ignored no Define or redefine a macro. 
~AM XX - ignored no Append to a macro. 

»~RM XX - ignored no Remove macro or diversion. 
~DI XX - end no ~ Divert out to macro "XX", 
~DA XxX = end _ ho Divert and append to "Xx", 
-AT -N XX - 7 no Set trap at line N. 

CH -N -M - = no Change trap location. 

~CH XX -M - - no 5 . 4s 

asa = 7 no End macro specification. 


*The use of 's:' as the control character (instead of '.') 
suppresses the break function. 
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Command Initial Default 
Form Value Argument 
VI. NUMBER REGISTERS 

-AU +N G prev 

~AR arabic - 

-CR arabic - 

~SR arabic - 


VII. TABS AND TAB CHARACTERS 


eTA N,ee none none 
TF C un.sp.* un.sp.* 
elC€ none none 
VIII. THREE PART TITLES 


-TL ‘left'center'right' 
-LT +N 65 prev 


Cause 
Break 


IX. CONDITIONAL INPUT COMMANDS 


-IF C COMMANC os 
~IF !C COMMAND = 
~IF N COMMAND = 
~IF !N COMMAND = 


X. ENVIRONMENT SWITCHING 


~EV N N=6 N=0 
XI. SPECIAL CONTROL COMMANDS 
CP no caps = 
»NC no caps = 
~ST = = 
~EX = = 
~PS no pass = 
~RP ll = 
DH = = 
DW = "= 

- DB = = 


*Un.sp. = unpaddable space character. 


no 


no 
no 
yes 
yes 
no 
yes 
yes 


yes 


yes. 


Explanation 


Number register. 

Set auto increment. 
Arabic numbers. 
Capital Roman numbers. 
Small Roman numbers. 


Set tab columns. 
Set tab fill character. 
Set tab character. 


Define title. 
Length of title. 


If true, do command. 
" 


Change environments. 


Capitals mode on. 
No caps mode, 
Stop processing. 


' Exit processor. 


Fass text without proc. 

Repeat entire file. 

Double height line**. 0% Paint 
Double width line**, mee ArvT 
Double height and width**. 


**These commands require the output device 
to support double dimensioned character printing. 
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Command Initial Default Cause 
Form Value Argument Break 
XII. EXTERNAL COMMUNICATION 

-GI ST - - no 
XIII. MISCELLANEOUS 

— = = no 
XIV. UNDERLINE 

XV. DISK ORIENTED COMMANDS 

% Ic c nye > ha no 
eOF NAME - “- no 
CF - - no 
eRI S - - no 
eNI N = N=] no 
-NB N - N=] no 


SPECIAL CHARACTER DEFINITIONS 


Character Meaning 


Standard escape character. 
Force capital letter. 

Set capital letter mode. 
Number register specifier. 
Basic control character. 

No break control character, 
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Explanation 


Send string to terminal. 
Get line from terminal. 


Comment field. 


Underline next input line. 


Set item character. 
Open data file. 
Close data file. 
Read item from file. 
Move to next item. 
Move to next block. 
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NUMBER REGISTERS 
Register Meaning 


User definable 

Current column count 

Day of the month 

End of data file flag 
User definable 

-GI & .RI character count 
User def. 

Current indent 

User def. 

Current line length 
Month 

Line count on page 
Current left margin 
Current page length 

User def. 

Last diversion line count 
User def. 

Year (2 digits) 

User def. 

Page number. 


1 
oo 


j 
m 


{ 
on 


RADY Teen Relea GP een oe ah ane a ae ee 
~< 
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REFERENCE MANUAL 


INTRODUCTION 


All input lines to the processor which are to be interpreted as 
commands should be started with the control character (a '.' or) 
‘:') in column one _ followed immediately by the two letter 
command. If the characters are not system command names or user 
defined macros, the line will be ignored. The ‘'nobreak' control 
character (':') may be used with any command to suppress normal 
line breakage during processing. Only a single command reference 
is permitted on any one line. 


The following detailed command descriptions reference numerical 
arguments either as N, +N, or -N. N means any argument is taken 
as absolute and any previous value is simply replaced by the new 
value. +N is used when the argument may take any form of a 
number (either positive, negative, or absolute). Valid arguments 
of this form are +4, -18, and 3 where the old value would te 
incremented by 4, decremented by 18, and replaced by 3 
respectively. Arguments of the form -N may use absolute values or 
negative values which are subtracted from the current page length 
(to reference N number of lines from the bottom of the page). 
When expressions are involved using the +N argument, the entire N 
is evaluated before the increment or decrement is applied (e.g. 
-6-3 will decrement the value by 3). Certain commands’ requiring 
arguments will keep the last argument assigned if the argument 
field is left empty when the command is called. 


I. PAGE CONTROL 


The page control commands are used to set the physical page 
parameters such as length, width, margins, numbering, etc. Top 
and bottom margins are not automatically provided and should be 
defined by the user with macros as described in a later section. 


~PL +N Set page length to N lines. Initial value is 66 lines 
and is reset to 66 if no argument is given. Does not 
cause a break. . The maximum N is 255. 


~PG +N Eject to next page. If N is given the new page number 
will be adjusted accordingly. The page number is 
automatically incremanted if no argument is given and 
the command does cause a break. Max N is 255. 


~PN +N Set the page number to +N. If .PN occurs before the 
first break or first text, it will be set for the first 
page. The value is initially 1 and the command does 
not cause a break. The maximum page number is 255. 


~LM +N Set the left margin according to +N. The entire output 


line will be offset to the right by the number of 
spaces the current LM is defined. Initially there is 
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no margin (N=@) and no break cccurs. Left margins 
should not exceed 106. 


-NL N Need N lines on the page. If the distance to the next 
trap position or the bottom of the page is less than N, 
the paper is advanced to the next trap position (blank 
lines output). Otherwise no action takes place. No 
break occurs and the default argument is N=l. 


II. TEXT FILLING, .ADJUSTING, AND CENTERING 


The following commands affect the appearance of individual lines 
of text. Two important parameters are referenced, Fill and 
Justify. The default fill mode is to fill output lines with as 
Many words as possible without exceeding the set line length 
value. Any extra words are saved for output on the next line. A 
word is defined to be any string of characters separated by a 
Space or spaces. If two words are to be separated by a space but 
are not to be split across line boundaries or separated by the 
justification routines, the unpaddable space character, "\ " 
(slash space) may be used. The default justification mode is 
left and right, giving straight margins on both’ sides. Filled 
lines which contain too few character positions to completely 
fill out the specified line length are padded with spaces. until 
the correct length is achieved. The space filling or padding is 
done from alternate sides of the page as each line is justified 
to eliminate ‘white rivers' which may otherwise occur in the 
text. No hyphenation is performed. It is important to note that 
fill must be on in order for the justification to be performed, 
but fill may be on by itself. If fill mode is off, characters 
are passed exactly as they appear on the input file. 


-BR Break the line currently being filled in the buffer. 
The line is output after specified justification is 
done but no further filling or padding is attemptea. 
Input lines beginning with spaces and empty text lines 
(blank lines) also cause a break. 


FI Fill mode is turned on and subsequent output lines are 
filled. This command causes-a break. 


NF Turn off £111 mode (nofill). Following input lines are 
neither filled or justified, but are copied to _ the 
Output exactly as they appear on input, without regard 
to the current line length. Causes a line break. 


~JU C Justification is enabled. If fill mode is off, 
adjusting will be deferred until it is back on. If the 
justify type character, neg is present the 


justification type is set as follows: N sets for normal 
(default, left and right), R sets right only justify, 
and C will center lines (both margins ragged). If the 
type character is absent, justification is turned back 
on with the type previously used. No break is caused. 
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oNJ Turn justification off. If fill is on, the resultant 
output line will have a straight left and a ragged 
right edge. No break is caused and the justify type 
remains unchanged. 


~CE +N Center the next N input lines. A break occurs before 
the command and then automatically after each line is 
Output. If the resultant line is longer’ than the 
current line length, the output line will be left hand 
adjusted. The maximum count is 255. 


III. VERTICAL SPACING 


All line spacing defaults to standard single spacing. It may be 
set at any time by using the MS command. If the line spacing is 
N, N-1l blank lines are inserted after each output line. The 
occurrence of a trap will terminate any remaining spacing count. 
Contiguous space should be saved by using the SV and OS commands. 


-MS N Set multiple line spacing to N. N-1l blank lines are 
inserted after each output line. No break is caused 
and if N is not specified the value of 2 will be used 
(double spacing). Max value is 255. 


SS Set single space mode. No blank lines are output after 
text lines and no break occurs. 


~SP N Space N lines. The number of output lines is limited 
to the distance to the nearest trap or bottom of the 
page. If nospace mode is on, no spaces are output, If 
no value for N is given, it defaults to 1. SP causes a 
break. . 


~-SV N Save N lines of space. If the distance to the next 
trap (or the bottom of the page) is greater than N, N 
lines are output, otherwise no lines are immediately 
output but the count (N) is saved for later output (see 
OS). Subsequent SV commands will overwrite any 
previously remembered N. Nospace mode has no effect. 
The command does not..cause a break and the default 
value for N is l. - 


-OS Output saved space. This command is used to output any 
previously saved space from the SV_ request. The 
remembered count. is cleared after calling OS and 
nospace mode has no effect. A break does not occur. 


NS No-space mode is turned on. The no-space mode inhibits 
SP requests and PG requests without a next page number. 
This mode is automatically turned off after the output 
of a line of text. No break is caused. 


~RS Restore space mode. If the nospace mode is on, it is 
turned off with this command without causing a break. 
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IV. LINE LENGTH AND INDENTING 


Using the following set of commands, the user has’ complete 
control over the line length and various forms of indenting. The 
line length includes all indent spaces but does not include left 
margin spacing. As long as the fill mode is turned on, the 
resultant output line will be less than or equal to the current 
line length minus the indent, Line lengths of less than 6 
columns are not permitted. 


~LN +N Set line length. The initial value is 65 columns and 
the command does not cause a line break. Line lengths 
must be between 6 and 255 columns inclusive. 


~IN +N Set the line indent according to N. With a line length 
of L and an indent of N, N Spaces are output before 
each line and the remaining text is restricted to a 
Size of L-N. Initially the indent is @ and the command 
causes a break. 


~SI +N Single indent N spaces. Only the next output line will 
be indented by the amount specified by N. Note that 
Single indenting may be done backwards into an indent 
field. (e.g. if indent is 18, SI -4 would temporarily 
set the overall indent to 16-4 or 6). IN and SI counts 
are cumulative and the final value may not be negative! 
This command causes a line break. 


-PI ST Put string in indent field. The string represented by 
"ST" (leading spaces ignored), is inserted into the 
field normally filled with spaces by the indent count. 
If the string is longer than the indent count, the 
String will be truncated so it will not extend past the 
indent field. 


V. MACROS, DIVERSIONS, AND LINE TRAPS 


A macro is a set of commands and/or text which can be assigned a 
name and called by name at a later time. All macro names are two 
characters long and must be different from any names already in 
existence in the system command name table. Macros are defined 
or redefined by using the LM command, or by using the output 
diversion command, DI. Macros already in existence may be 
appended to by uSing the AM or DA commands. If a macro is named 
XX, it may be invoked by an input line beginning with .".XxX". A 
trap may also be placed at a specific vertical page placement to 
cause automatic macro execution at that point by using the AT 
command. During macro definition, number registers are not 
expanded into numeric values but are at the time the macro is 
executed. No other special character translation is done during 
macro definitions (e.g. tab expansion, etc.). Keep in mind that 
Macros may be any combination of commands, macro calls, and text, 
but a macro may not define another macro (it may create a 
diversion). 
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A diversion is treated as a macro upon execution but is created 
in a different manner. Processed output may be diverted into a 
macro space for such purposes as footnote processing or vertical 
page size determination for conditional changing of page 
parameters (number register V contains the last diversion line 
count). All normal processing takes place during a diversion 
except left margins. It is Standard practice to read back the 
diverted text in ‘nofill' mode to suppress further line 
processing. : 


If at any time during macro definitions or diversion creation the 
macro space is overflowed, a system error will be generated and 
processing will be halted. None of the macro commands cause 
breaks in the line filling. 


~DM XX Define or redefine a macro with the character name Xx. 
The actual macro begins with the next input line. The 
macro definition is copied until the termination 
character ".." is found starting in column 1. Macros 
may not contain DM requests but may create diversions. 


AM XX Append to the macro named XxX. This command acts 
exactly like DM except the following input lines are 
appended to an existing macro rather than creating a 
new named space. 


»RM XX Remove macro or diversion. The macro named XxX is 
removed from the name list and subsequent calls to this 
name will have no effect. 


~DI XX Divert output into the macro space named xX. The macro 
named XX is defined or redefined at this point. All 
normal text processing occurs during diversions except 
left margin page offsetting is not done. The diversion 
process is ended when another DI or DA is encountered. 
Diversions can not be nested! The count of the number 
of lines last diverted is kept in number register V for 
possible later reference. 


~-DA XX Divert append version of DI. The same rules apply for 
both commands. 


-AT -N XX At line N invoke macro Xx. Any macro previously 
planted at line -N is replaced by Xx. N is measured 
from the top of the page (@ or 1 may be used to 
represent the top) and -N is measured from the bottom 
of the page (e.g. if the page length is 66, line -1l 
represents line 66). If no macro name is given with 
the command, the trap located at line -N, if any, is 
removed. 


~-CH -N -M Change trap. See next. 
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-CH XX -M Change the trap planted at line -N to occur instead at 
line -M. Alternately, change the location of the trap 
for macro XX to line -M. If there is not a trap set at 
-N, the request is ignored, 


Pan Terminate a macro definition. 
VI. NUMBER REGISTERS 


Number registers are a type of variable used during processing. 
There are two classifications, user definable and system. Number 
registers have single character names (A through @Z@ and '$'). 
Number registers may be used any time a number is expected in a 
command and also may appear imbedded in text, There are two 
methods of referencing a number register: 


#X 
#+X 


where ‘'#' is the register designator character and X is the name 
of the register. When using '%' it should not be preceeded by 
the ‘#'. The ‘+' in the second example specifies that the 
number register is to be auto incremented prior to its use and it 
will retain the new incremented value. the auto increment amount 
is set using the AU command. When a number register reference is 
encountered it is converted toa decimal, lower case Roman, cr 
upper case Roman, as determined by the mode set. Number 
registers appearing in macro definitions are not converted until 
the macro is actually executed. Number registers may also he 
used to construct expressions any time a number is expected in ¢ 
command (expressions may not be imbedaded in text). The 
expressions are evaluated left to right and may contain only the 
operators '+' and '-'. 


»~NR X +N ASSign a value to number register X. This command 
should only be used to assign values to user definable 
number registers. 


-AU +N Set the auto increment amount to +N. Any time a 
register is referenced as "#+X", the AU value will be 
added to it prior to its actual use. 


-AR Arabic numbers. See-below, 

ZCR Capital (upper case) Roman numbers. See below. 

so Small (lower case) Roman numbers. Number registers 
will subsequently be convertec into Arabic, capital 
Roman, or small Roman’ respectively. This mode is 


initially Arabic and also applies to the outputting of 
page numbers using the ‘'$'. 
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The following is a list of the system and user definable number 
register names. 


Register Meaning 


-B User definable 

Current column count 

Day of the month 

User def. 

Get input (.GI) character count 
User def. 

Current indent 

User def. 

Current line length 

Month 

Line count on page 
Current left margin 
Current page length 

User def. 

Last diversion line count 
User def. 

Year (2 digits) 

User def. 

Page number 


t I 
x ry 


OP EES DO eee Ge eae ee 
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VII. TABS AND TAB CHARACTERS 


The currently defined horizontal tab character is replaced by the 
required number of fill characters corresponding to the distance 
to the next defined tab stop column (on the line currently being 
filled). The fill character is normally the unpaddable_ space 
character but may be defined by using the TF command. Up to 2@ 
tab stops may be defined and should be set in ascending order. 
Initially no tab stops are defined and the tab character is null. 
Any non alphanumeric character may be defined as the tab 
character. It should be noted that using tabs with the fill mode 
turned on can result in nonsensical output tab fields since the 
user may not know what the current output column is. 


-TA N,.e. Tab stop settings. The default tab stops are all null 
(none) and ae total of 28 may be defined. The stop 
values may be separated by spaces, commas, or any other 
nonnumerics, e.g. TA 16,26,25,46. . 


-TF C Set the tab fill character. This is normally the 
unpaddable space character but may be defined to any 
nonnumeric printable character. If i is not 


specified the fill defaults to the unpaddable space 
character. 


Pha & Gomes 6 Define the tab character. Initially the tab character 
is null (none) but may be defined to any nonnumeric 
printable character. If 'C' is not specified the tab 
character again becomes null. 
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VIII. THREE PART TITLES 


Very convenient titling may be performed by using the TL commana. 
Three fields may be used for left, centered, and right 
justification of titles. All 3 fields may be used or = any 
combination of fields. The justification is done with respect to 
the title length which is independent of the defined line length. 
This length is initially 65 columns. The use of TL has no effect 


on current line accumulation (does not cause a_ break). -TL is 
usually used in header and footer macros. For example, 
TL ''-%-'' will print the page number in the center of the title 
length. 


TL 'LEFT'CENTER'RIGHT' 

Place titles adjusted according to field. The strings 
represented by "LEFT", "CENTER", and "RIGHT" are 
respectively left adjusted, centered, and right 
adjusted within the current title length. Any of the 
fields may be empty and any nonnumeric” printing 
character may be used in place of the field delimiter 
menu. =6 The "$" character will be replaced by the current 
page number in Arabic or Roman representation, 


-LT +N Set title length. The lengths of titles and lines are 
separate parameters. Indents do not apply to titles 
but left margin adjustment does. 

IX. CONDITIONAL INPUT COMMANDS 


Input command and macro calls may be performed on a conditional 
bases. Chained conditionals are permitted as in: IF #A IF #B .XxX. 


e-LF C COMMAND See next 
elt !C COMMAND ad 
~ LF N COMMAND " 


-IF !% COMMAND wT . 
IF is the conditional command. "COMMAND" can be any 


system command or macro name. "C" is a built in 
condition code and can be either O or E to represent 
Odd or Even page numbers’ respectively. "N" is any 


number and can be a number, a number register, or any 
combination of these in the form of an expression using 
addition and_ subtraction. If the condition is true 
(the built in condition is satisfied or the number is 
greater than zero), the command or macro named is 
executed, otherwise the command is ignored. If "C" or 
"N" are preceeded by a ‘'!' (not), the command is 
executed if the condition is false or the number 1s 
less than or equal to zero. 


SSB Text Processor User's Manual 
Version 2.8 


X. ENVIRONMENT SWITCHING 


There are a number of parameters which control the text 
processing and are grouped together and called the environment. 
These environment parameters may be changeaG all at once uSing the 
switch command. There are two environments, @ and 1. They both 
have identical initial values tor all parameters. Parameters 
within these environments are those associated with: 


line length vertical line spacing 
indenting centering count 

adjusting auto increment 

filling partially collected words 
title length partially collected lines 


All other parameters are global, or in other words, they are not 
Switched with the environment but remain unchanged. Examples of 
global values include left margin, page number, current line 
number, number registers, trap tables, and macro definitions. 
Since partially collected words and lines are kept with the 
environment, switching environments will not cause a break and 
will also preserve any left over words. 


~EV N Change to environment N where N can be @ or 1. If N is 
left null, environment @ is assumed. 


XI. SPECIAL CONTROL COMMANDS 


The following commands control certain aspects of the processor. 
The double height and width commands are hardware dependent. You 
should refer to the "adaption" Section of this manual _ for 
details. 


~CP Turn capital letter mode on. When enabled, this mode 
will allow the use of an upper case only terminal to 
prepare text for later output to a device which 
supports both upper and lower case. Each character is 
automatically converted to lower case unless it is 
immediately preceeded by a ‘'@' at which time that 
character remains upper case. Strings of characters 
may be kept in upper case by enclosing them between up 
arrows "“", The "@" is like a shift key and the """ 
acts like a shift and lock key. 


NC Turn off capitals mode. ‘Initially this mode is off and 
the special capitalization characters ("@" and """) are 
ignored. | 

ST Stop causes processing to temporarily halt and the word 


"STOP" is output to the terminal. At this time, typing 
an "S" will cause all processing to be stopped and the 
processor will be exited. Typing any other character 
will cause processing to continue. The stop command 
does cause a line break. 
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EX Exit the processor. Text processing is stopped just as 
if all input had been finished. This command is useful 
in conjunction with the IF command. 


~PS Pass all input to the output. This command is 
primarily intended as a debugging aid since it allows 
all input (including command lines) to be passed to the 
output. No command interpretation or processing is 
done and once in this mode, the remaining text will be 
passed until the end of the input file is reached. 


RP Repeat processing on file. This command will cause the 
file to be ‘rewound' and all processing to be repeated. 
This is useful for some form letter type applications. 


. DH Print the next line in double height characters. This 
feature requires special hardware on the output device. 
Consult "Adaptions" for details. “Ler fo@ Rid ofits 


DW Print the next line in double width characters. 
Requires special hardware. <crr jor (RuNth& toh toe 


DB Print next line in both double height and double width 
characters. Requires special hardware. . 


XIT. EXTERNAL COMMUNICATION 


Two commands exist which allow for communication between the 
processor and the user during actual text processing. The Ti 
command is useful for sending special instructions to the 
terminal such as paper adjustment or character font change 
information. The GI command can be used in form letter 
prepacation or insertion of special text strings while processing 
is taking place. 


TM ST Send a message to the terminal. ST may be any String 
of characters or words, The leading blanks are 
ignored. The message is simply output to the terminal 
and may be used before the Stop command to issue 
special instructions. 


-GI ST Get input from the terminal. If ST is present (any 
String), it is output to the terminal as a prompt 
message. Characters typed from the terminal following 
the execution of GI are automatically inserted into the 
input stream for text processing. This command can be 
used to get name and address information for form 
letter preparation. The ‘get input" function is 
terminated by typing a carriage return, therefore, only 
one line of text may be entered with each GI command 
executed. After completion of the command, the number 
register G contains the character count of the string 
typea (not including the carriage return). 
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XIII. MISCELLANEOUS 


The following describe some of the smaller features of the text 
oroceSSor. 


— Comment field. This may be used to insert comments 
into the input text and will be ignored by the 
processor. No output is created with this command (the 
comment is not passed to the output). 


Special Characters 


\ Standard escape character. This character is used to 
remove special meaning from a character. For example, 
if a percent sign ("%") is needed in the output it is 
necesSary to preceed it with the "\", otherwise it will 
be interpreted as the page number (e.g. \%). To print 
a backslash, "\\" must be used, 


@ Force upper case letter if in the capitals mode (CF). 
This acts Similar to the 'shift' key on a typewriter. 
Example: "@test" will be output with an upper case "i" 


and lower case "est". 

Upper case string delimiter. This character acts 

Similar to the 'shift and lock' key on a typewriter. 

As an example, “this is a test” would cause "this is a 

test" to be output in all upper case characters. The 

Capitals mode must be on (CP). 

# Number register specifier. When an alphabetic 
character is immediately preceeded by a "#" it will Le 
interpreted as a number register. Example: "#A" refers 
to number register "A", 

7 The period is the basic command control character. If 
in column one, it specifies a two character command or 
macro name follows. 

: The colon is the no-break control character. It 
functions exactly like the period, but will suppress 
breaks caused by various commands. 

% Page number symbol. Any place the percent sign 
appears, it will -automatically be replaced by the 
current page number. 


Special notes 


A. Any time input is being typed into the ‘processor, typing a 
‘control X' will delete that line and issue a "?" as a prompt. 

B. The processor automatically makes sure there are two spaces 
after “s") 7L", or 2", This does not apply to punctuation 
immediately followed by another character. 
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XiV. UNDERLINE 


The following command permits underlining of words but may only 
be used with printer devices which support single character 
backspace capability. Unpredictable results will occur’ when 
trying to use this command on printers not supporting backspace. 


PEED Ee Underline the next input line. ‘the following line of 
text (single or multiple words) will result in the 
Output being underlined. Only alphanumeric characters 
are underlined. 


XV. DISK GRIENTED COMMANDS 


The following commands deal with the use of a "data file". The 
data file is a set of "blocks", with each block being divided 
into "items". An item can be any set of text or processor 
commands followed by an "end of item" character. The “end of 
item" character is initially a '>' but may be redefined using the 
-IC command (see below). The end of a block is specified by a 
null or empty item (two successive end of item characters form a 
null item; e.g. End of block>>) There are processor commands 
wnich allow inserting items into text (see .RI), skipping items 
(see .NI), moving to a new block (.NB), and the ability to open 
and close data files. For a specific example of these commands, 
see the Form Letter example in the MACRO LIBRARY section. 


ere. € Set the end of item character. This character is 
initially a '>' but may be defined to any 
nonalphanumeric printable character. If ‘Cc’ is not 


specified, the character defaults back to a '>', 


-OF NAME Open a data file. This command will prepare the 
specified file for reaaing. If 'NAME' is specified on 
the command line (it should follow standard file spec 
rules) that file will be opened if found on the _ disk. 
If 'NAME' is not specified on the command line, the 
processor will prompt the terminal with: "DATA FILE 
NAME? "“ at which time the desired file name should be 
entered. If a tile is already open, the .OF command 
will be ignored by the processor. It is only possible 
to have one file open at any one time. Closing a _ file 
using .CF will allow another file to then be opened. 


.CF Close data file. If a data file is opened, it will be 
closed and not allow any more data to be read from it. 
If no file is open, the command has no affect. 


~RI Read item from input file. If a file has been opened, 
the RI command will cause input from the file until an 
"end of item" character is’ read. The end of item 
character will be returned as a space if in the fill 
mode, or a carriage return if in nofill mode. If ansS 
appears on the calling command line (.RI 5S), no 


~NI N 


NB N 
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character will be returned tor the end of iter 
Character. In other words, the character will be 
"S'uppressed. If there are no items remaining in the 
current block, .RI will have no affect. The RI command 
will also be ignored if no file has been opened. After 
reading data with the RI command, number register C 
will contain a count of the number of characters just 
read in. 


Move to next item. Normally sequential items are read 
by using the RI command. It is often desirable to skiz 
items while processing text from a data file. The .NI 
command is used to skip one or more items in a_ block. 
If N is present on the calling line, it should be a 
number (or number register) which specifies the number 
of items to be skipped. If N is not present, the 
Gefault is one item to be skipped. NI will not move 
past the end of a block. 


Move to next block. The use of NI and RI commands 
cause the sequential reading of items and will never 
move into the next block. It is necessary to use _ the 
-NB command to advance to the next block. If N is 
specified (a number or number’ register), N-l blocks 
will be skipped. (example: If .NB Z were specified, 
the next block would be skipped over and the next data 
read would be from the block following). If N is not 
Specified, it defaults to l. If there are no more 
blocks left in the data file and the .NB command is 
used, number register E will be set to one to designate 
an End of file condition. 
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USING THE TEXT PROCESSOR 


I, BRINGING UP THE SYSTEM 


The disk processor command file name is "PR". The general syntax 
For the PR commana is: 


PR,<file spec>[,<list of file specs>] 


The <file spec> designates which text file is to be processed. 
If the text to be processed is divided among several files, each 
file spec may be listed separately on the calling line separated 
by commas. A special feature Supported by PR is the ability to 
process files from any number of discs on systems containing @ 
limited number of drives. Substituting a '*' for the <file spec> 
any where on the calling line where a <file spec> is expected 
will cause the processor to halt and output to the terminal: 


CHANGE DISKS AND TYPE A KEY 


At this time, insert the disk containing the continuation file(s) 
and type any key to restart processing. It should be noted that 
the ability to process multiple files with one calling line 
should only be used when the files are actual continuations of 
the same text. The processor treats them as if they were all 
part of the same file, continuing page numbers, indenting, page 
width, etc., just as if the first file had never ended. 


Another feature supported by the processor is the ability to 
automatically process a macro definition file prior to processing 
any of the files specified. Upon the execution of PR, the disk 
in drive @ is searched for a file named ‘'MACRO'. If none is 
found, the processor starts processing the first file specified. 
If a MACRO file is present, it is read in and processed, just as 
if it had been the first file specified in the calling line. 
This is useful for defining all often used macros in this file so 
it is not necessary to redefine-them in each processor text file 
prepared. - 


A few examples will clarify the calling of PR: 


PR,CHPTR1 | oo 
FR,@:CHPTR1,1:CHPTR2,*,@:CHPTR3- 


The first example will process the file named CHPTRI. The file 
MACRO will also be processed if it exists. The second example 
will first try to process the file MACRO, then process the files 
CHPTR1 on drive @ and CHPTR2 on drive 1. The processor will then 
halt and output the ‘CHANGE DISK' message to the terminal because 
of the '*' used as a file spec. After changing disks in drive 6 
and typing a key, the processor will process the file namea 
CHPTR3 on drive 6. 
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Wnen the procesor is called, the following nessage will be output 
tc the terminal: 


PAGE LIMITS? 


and is used to specify a particular block of fages to be 
processed. Typing a carriage return will cause all pages to be 
processed and output. Typing two numbers separated by a space cr 
a comma will cause only the pages between those numbers 
(inclusive) to be output. For example, typing: 


10,16 


will result in only pages numbered 18 through 16 to be output. 
If just one number is entered, the processor will start outputing 
at that page number and continue to the end of the file. It 
should be noted that the processor always starts numbering the 
first page as number’ one unless instructed otherwise. As the 
processor is working, it may be stopped at any time by typing a 
"control cC" on the terminal. (This feature is only supported on 
computers uSing a serial type interface (MP-S) as the terminal 
interface port.) The processor will respond with: 


» —BREAK.. 


output to the terminal. At this time processing may be continued 
by typing any character except an "S" which will cause the 
processor to be exited. 


II. GENERAL USE 


Thece are several things to keep in mind while preparing text tor 
the text processor. Remember that all commands must ktegin in 
column one. It is usually most convenient to begin each sentence 
on a new line for easy future editing. Macros should be used as 
often as possible. The reason for this is to keep global changes 
as simple as possible, e.g. change only one line in a macro as 
opposed to changing Single commands’ scattered throughout the 
file. It is not necessary to understand how the macros’ provided 
in this manual work in order to use them. All that is necessary 
is to know how to use them which is thoroughly explained. As 
experience is gained with the processor, you will be able to 
create your own special purpose macros for easy formatting. 
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MACRO LIBRARY 


The following macro descriptions range from simple header = and 
footer macros to a very complex footnote macro. It is not 
necessary to understand how the macros work, just how to use 
them. Each macro includes a description of what it does and now 
it can be used. 


I. HEALERS AND FOOTERS 


These macros are used to define top and bottom margins and also 
specify the contents of these margins, such as page numbers, 
titles, etc. Almost all processing jobs will require some sort 
of header and footer. Usually the macro definitions are placea 
at the beginning of the file (they need to appear before they are 
called for execution). The “AT™ command is used to set the trap 
location (the line at which the macro shoulda automatically 
execute) of each of the macros. Headers are set to line 1 and 
footers to a specific distance from the bottom of the page. Once 
these macros have been defined and their trap locations set, they 
can be forgotten about since the processor will do all the rest 
of the work. The first macro is a simple header macro which 
provides two blank lines, a centered title, and two more  kLlank 
lines at the top of each page, 


"CENTERED TITLE'' 


~-AT 1 HD 


All of the header macros will contain a NS and OS command. N8&& 
will suppress any unnecesSary spacing which may occur due to the 
unpredicted appearance of a SP command. For example, if the 
start of a new paragraph just happens to start at the top of a 
new page, there is no reason for the paragraph macro to space 
down two lines, since we are at the top of the _ page. NS will 
keep this from happening. The OS command instructs the processor 
to output any ‘Saved space' from the previous’ page. The next 
header is a little fancier. It does everything the previous one 
does except the titling is done a little differently. Here, if 
the current page number is even, the title is left hand 
justified. If the page is odd, the title is right hand adjusted. 
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-DM HD 

:SP 2 

~IF E .TL ‘EVEN TITLE''! 
elt CG 4 Th. ** ODS. TITLE 


-AT 1 HD 


Subtitles may be used by simply placing a second TL command which 
contains the subtitle. The last header example is for those 
using a printer which uses separate sheets of paper (as opposed 
to continuous fed). This macro will issue a message to the 
terminal which instructs the operator to insert a new sheet of 
paper, before each page of text is processed. The paper should 
be set up such that the first line printed will be the top line 
of the paper. The operator will have to type a character on the 
terminal after each stop to restart the processor. Remember that 
typing an "S" will halt the processor. 


DM HD 
~TM INSERT NEW SHEET 


:SP 2 
ti *" PTTL’! 
:SP Z 


~-AT 1 HD 


Footer macros are Similar to headers except they are set to 
execute at the bottom of a page. For example, specifying 
AT -6 FO would cause the macro called FO to automatically execute 
at the 6th line from the bottom of the page. The first footer 
gives a five line bottom margin with the page number between 2 
dashes centered on the page, 3 lines from the bottom, 


~DM FO 

‘SP 2 

TL rrog-tt 
:PG 


it is often desirable to have page numbers on every page except 
page number one. The following footer will do exactly that. 
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~DM FO 

‘SP 2 

~IF @$-l1 .TL ''-$%-'' 
:PG 

~AT -5 FO 


There are several other types of header and footer macros which 
can be created. Some of these appear in the macros which follow. 


IT. PARAGRAPHS AND HEADINGS 


Tnere are many forms of paragraphing. ‘The SSE Text Frocessor 
does not restrict one to using one particular form. One type of 
paragraph is to produce one blank line and start the first line 
of the paragraph indented five spaces. The following macro does 
just that: 


~ DM PP 
~SP 
~SI 5 


To use the paragraph macro, simply call it by name any time a new 
paragraph is desired (e.g. type ".PP" in column one). One 
little feature which may be added to the macro is a need lines 
command, NL. In the following example, NL 3 is used to tell the 
processor that we desire at least three lines be left on the page 
before a new paragraph is started. This will keep one or two 
lone lines from being placed at the bottom of the page. 


~DM PP 
~OP 
~NL 3 
esr 5 


Many other types of paragraph macros may be created along the 
same lines as those presented. 


Another useful macro can be created for major heading creation. 
One type of major heading might have a centered title spaced two 
lines down from the last line of text. The macro to accomplish 
this may look as follows: ee 


~DM MH 
eSP 2 
CE 


To use this macro, type ".MH" when the heading is’ desired. The 
next line should contain the heading title. For example: 


-35- 


35SB Text Processor User's Manual 
Version 2.3 


Line of text. 
eMH 
Heading Title 


The last two macro examples are quite simple, but show how even 
two or three lines of commands may be replaced by a single macro 
call. This is quite useful if these operations are going to be 
repeated many times throughout a aocument. 


TIT. FCOTNOTES 


The following set of macros is all that is required to do very 
etficient and easy footnote handling. A description of how they 
actually work is contained in the introduction of this manual. 
To use these macros, it is only necessary to include their 
descriptions at the beginning of your file. As soon after a 
footnote is referenced in the text, call the macro BF (begin 
tootnote) to begin the footnote. Immediately following this 
call, type the contents of the footnote, followed by a call to 
the macro EF (end footnote). The following serves as an example: 


Text here referencing a footnote*. 
BF 

*Footnote contents typed here and 
may be several lines long. 

» EF 


It should be noted that the footnote macros contain their own 
header and footer macros which may be modified as desired. These 
macros should be the first lines of a file. 


~NR B 
-DM H 
:SP 2 
IF %-l .TL ‘FOOTNOTE TEST''! 
:SP 2 

AU l 
NRK &A 
-NR W 
IF ¢ 
eNS 
-DM FO 

-NR V @ 

~IF #X .FT 
~CH FO -#B 
: PG 

~DM NM 

TL reogitl 


- continuead - 
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.NR W -#V 
.CH FO #W 
IF #N-#P-#W .CH FO #N+t1 


- 6M TR 


~-DM FN 
~DI FE 


-AU l 
~LN 55 


Please remember that it is not necessary to fully understand row 
these macros work as long as you Know how to use them. 
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IV. TwO COLUMN OUTPUT 


The SSB processor does not support backward line feeds so it is 
necessary to use some operator intervention in order to produce 
two column output. The following set of macros will produce’ two 
column output, each column being 31 characters wide. When the 
text of the first column reaches the bottom of the page, the 
string "REPOSITION PAPER" will be output to the terminal and a 
"STOP" command is executed. At this time the operator. should 
reposition the paper to the top of the page and then restart the 
oroecessor by typing any key but "S". 


~LN 31 

NRA @ 

eDM HD 

~IF #A .PA 

:SP 2 

-AU 1 

~IF !#+A-1 .TL ‘''title'' 
~IF #A-1 :SP 

:SP 2 

IF #A-1 .LM 34 


~DM FO 


~IF #A-1 TL rig—ts 
IF #A-1 .NR A G 


»~OM PA 
-TM REPOSITION PAPER 
e-AT 1 HD 
BR 
It should be noted that these macros also contain their own 


special set of header and footer macros which may be modified as 
vesired. 
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V. FORM LETTERS 


The last set of macros and examples deal with form letters. 
These macros are shown with some sample text and make extensive 
use of disk data files. This example should be thoroughly 
studied before trying to make use of disk data file commands. 
The RP (repeat) command is used so that the file is repeated over 
and over, until the end of file has been reached in the data file 
(number register E is non zero). The macro creates a name ana 
address header at the top of each fage. Following is "fear 
(persons name)" and the text of the letter. The sample frogran 
is shown below, followed by the sample data file, and then a 
sample of the output produced by the processor. 


-OF 

-JU N 

NF 

-DI NM 

RI 

-BR 

etl 

~IF #E .EX 

~SP 6 

-NM 

eRI 

eRI 

~SP 3 

~FI 

Dear 

~NM 

2oP 

yok <D 

We are writing to you to inform you that your 
RI 

Insurance policy is about to expire, 

Your policy number is 

»~RI 

and expires on 

~RI S 

\e 

If you desire renewal, please send payment by 
the end of this month. 

It payment is not received, your policy will be terminated. 
eRI 

Thank you for your attention to this matter. 
eSP 2 

~NF 

Thank you 

~SP 3 

Agent 

eNB 

~ RP 
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The sample data file is as follows: 


John Doe> 

1313 Riverside Ave.> 

Akron, Ohio 44225> 

Fire> 

F3-4322-946> 

March 15, 1975>> 

Bill Jones> 

llll Crescent Street 

Apartment #12> 

Kingston, New York 1¥@11> 
Automobile>E5-4936-263>March 14, 1975> 
This is your second and final notice!>> 
Hiram Johnson> 

RR #3> 

Lotson, Virginia 32884> 

Life> 

B1-2234-123> 

March 12, 1975>> 


As can be seen in the above Sample data file, items may be placed 


one per line, or multiples per line as desired. The following is 
the output obtained from the first block of the data file. 
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SYSTEM ADAPTATIONS 


There are three features which can be user adjusted. ‘these are 
treated separately below. 


I. MACRO STORAGE SPACE 


The macro storage space is presently set to approximately 4K and 
resides at the top of the first 12K block of memory. In 99% of 
all applications, this space will be much more than sufficient. 
If more memory is available, and you are requiring more macro 
space, the size of this space can be expanded. The end of the 
Space address is stored at location $8217 (LMACRO) and may be 
changed as needed. 


II. DOUBLE CHARACTERS 


Three commands exist in the processor which require special 
printer hardware. These ara double height (DH), double width 
(DW), and double both (DB). Some commercially available printers 
will print single lines of double size characters if a special 
control character is received prior to the line. The double 
height control character ($12) is stored in location $@21C. The 
double width control character ($6E) is stored in location $@21L. 7 

These may be changed as gh kd arto DpWialk (RATER 6 ap EL Wak a) 


ILL. SUSPENDING EXECUTION OF THE TEXT PROCESSOR 70/6 Vin O8b IEEE - 


Typing Control C during the execution of the text processor will 
suspend the processing and print "..BREAK.." on the terminal. 
Typing the letter "S" will cause the processor to exit to the 
Operating system. Any other letter will cause processing to 
continue. The text processor is configured to use the MIKBUG PIA 
terminal interface. If you are instead using an ACIA for 
terminal 1/0, the kase address of the ACIA should be placed in 
locations $9213. 
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MAL/68@6@ 1.2: 60@@ 
Fage 1l; Forr 1 


DATE TIME; 


O20E 


0038 


UO3E 
GU3Z 
C633 
0u34 
W835 
GH 36 
&037 
093& 
0639 
G0 3B 
683C 
YE3D 
WG3E 
UO 3F 
OU4E 
6645 
6046 
Ou4& 
UWo4s 


Muas 
GU 4E 
U4C 
00 4C: 


604i 
U6 4F 
OO5L 
GO51 
6652 


C602 
COO1 
G081 
6OG1 
6981 
GUO1 
COG1 
WOO1 
0082 
00661 
0661 
C001 
0061 
O0G61 
G85 
6001 
6962 
OO01 
6881 


6681 
6601 
6061 
0801 


6661 
0961 
G081 
0601 
G9G1 


WO Ws OS UO & ho 
ee es e8 


WITH 
* 

* 

* 

* 

k 

x 

* 

* 

* 6304 YUCCA 
* 

* 

EDIT  EQU 


* EDIT CATE: 


CRG 


14 
06-13-78 (NC ITS WOT FRILAY) 


SSE 686€ TEXT PROCESSOR 


WI=86,NDME 


SSE 6860 TEXT FROCESSING SYSTEM 


COPYRIGHT 1978 BY 
SMOKE SIGNAL BROADCASTING 


HOLLYWOOD, CA G€628 


$0636 


* TEMPORARY STORAGE 


* NUMBER REGISTERS 


NMREGS RMB 
COLCNT KMB 
CAY RMB 
EOFF RMB 
RMB 
GCNT RMB 
RMB 
IND RME 
RKME 
LLN RMB 
MNTH RMB 
LINCNT RMB 
LFM RMB 
PGL RMB 
RMB 
LDBIV KMB 
RMB 
YEAR RMB 
RMB 


ena SOR peel © A eel eel el ele ON ell oo el oo eel oe old NO 


U 
~ 


FREDO MMO mmo OP 
OR 


* SPECIAL DISK STORAGE 


LOIF RMB 
EORF RMB 
ITEM RMB 
FILOPN RME 


* SINGLE STORAGE 


ULFLG RMB 
GDNUM RMB 
ACD RMB 
SUB RMB 


BNUM RMB 


eh Re 


pe 
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8653 0661 58: NPGN RMB l 
2054 6601 59: INC KMB + 
66: 

61: * MACRO SAVE BLOCK 

62: 
G655 GHE2 63: NUMENT RMB 2 
6057 O6O1 64: EXCKR RMB 1 
OU58 PBG2 65: LSTNUM RMB 2 
025A G00l1 66: CMFLG RMB 1 
HO5B G86] 67: MBFLG RMB 1 
OB5C €bE2 68: MBFPNT RMB Z 
GO5E G661 69: NOCR RMB 1 
OB5F O001 70: DONE RMB 1 
C268 @661 71: FLBF RMB © 1 
C661 bel 72: ATFLG RMB 1 

13% 

74: * MORE SINGLE STORAGE 

753 
GO062 CeB1 76: LEFT RMB l 
6863 vOG1 77: TFILF RMB 1 
0264 O661 78: NOFL RMB 1 
6665 #6001 79: INNGM RMB 1 
6866 8661 80: NEG RMB 1 
0067 U8Ol 81: SIGN RMB 1 
268 €8G1 82: NSP RMB 1 
OU69 6881 83: PGN RMB 1 
026A EHU1 84: PASCHR RMB 1 
G@€6B 6001 85: SPSFF EMB 1 
646C bEO1 86: DOCAP RMB 1 
O66L W661 87: NCOUT RMB 1 
G4U6E 8601 — 88: TOUTL RMB 1 
OV6F b6OG1 89: PTFL RMB 1 
O076 @061 90: SIN RMB 1 
0071 6861 91: MINDIS RMB 1 
872 O61 92: EV RMB 1 
0673 8601 93: NCEXP RMB 1 
0874 8862 94: NXTTAB RMB 2 
6976 0801 95: TABFLG RMB 1 
6277 801 96: COLCN2 RMB 1 
6878 O801 97: IND2 RMB 4t&. 
0879 O82 $8: NXTTRP RMB 2 
G607B OUG1 99: SVLSPC RMB 1 
G07C 6601 160: FINMAC RMB 1 
G6@7C 6861 101: NEGT RMB 1 
GO7E C601 162: IFFLG RMB ] 
CG7F BOB1 1@3: MACCNT RMB 1 
OGSG 0001 104: PASFLG RMB 1 
§8@51 6861 125: NCNUMS RMB 1 
66682 €061 186: DWFLG RMB 1 
8083 6601 167: DFMFLG RMB 1 
0884 O061 188: SFIFLG RMB 1 
0285 9601 169: DIVEFLG RMB 1 
8286 0681 116: DIVFL2 RMB 1 
0087 G0b1 lll: RIFLG RMB 1 
6668 8061 112: CRSUP RMB 1 


VAL/6500 1.2: UOBA SSB 6806 TEXT ERGCLSSUFR 
LATE TIME; Page 3; Form 1 


6889 0001 113: NCOUNT RMB i 
M68A 6001 114: ESCNT BMB 1 
668B 2662 115: INFCP RMB 2 
GB8D G6H2 116: \XTEMP2 RME 2 
O08F 8601 117: PRNTR RMB 1 
6992 GO2) 118: TLPP RMB 1 
6891 #661 119: LOWPG RMB 1 
6692 0601 120: HIPG RMB 1 

121 
0693 6001 122: SBFLG RMB 1 
6494 081 123: LLN2 RMB 1 
6095 #962 124: MACNAM RMB 2 
6097 8862 125: MACTMP RMB 2 
6299 #662 126: LSTAVL RMB z 
669B 68B2 127: FSTAVL RMB 2 
OBSD 6662 128: STPOUT RMB z 
OUSF W6O2 129: NXTMAC RMB 2 
bEA1 6902 138: NXTOUT RMB y 
GOA3 8062 131: XMAC RMB 2 
GBA5 8001 132: TSIN RMB 1 
BGA6 0601 133: TIND RMB 1 
W2A7 GO61 134: TLLN RMB 1 
60A8 6661 135: SUPL RMB 1 
EBAS 0801 136: SWRCF RMB i 
GHAA 6661 137: CAP RMB l 
UBAB 0661 138: SCAP RMB 1 
GOAC 0061 139: TPOS RMB 1 
QUAL B01 148: DELIM RMB i 
G6AE 0001 141: TCNT RMB 1 
(GAF @681 142: MCNT RMB 1 
GOBO bO02 143: TTLPNT RMB 2 
GOB2 8661 144: ENDLIN RMB 1 
60B3 6661 145: TAB RMP 1 
O0B4 O6B1 146: TFILL RMB 1 

147: 

148: * ENVIRONMENT PARAMETERS 

149: 
C065 L602 156: AUTO RMB 2 
OOB7 #282 151: ROM RMB 2 
GOBS B662 152: WIDTH RMB 2° 
OBBB 8862 153: FILFLG RMB 2 
BABD 0@62 154: PFLG RMB 2 
HOBF 0062 155: PCHAR RMB 2 
BGC] B02 156: CNJ RME 2 

€0C3 6002 157: RTI RMB 2 
GHC5 GOL2 158: MSC RMB z 
W2C7 062 159: CNTFLG RMB 2 
bBC9 B6G2 16@: JUST RMB 2 
BOCB OBU2 161: TLN RMB 2 
GWCL 6604 162: BUFPNT RMB 4 
68D1 @604 163: BUFEND RMB 4 
BOD5 B6O4 164: EBFEND RMB 4 

165 
GGD9 e602 166: CMNPNT RMB 2 
G6DB 0662 167: SPCPT1 RMB 2 
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UEDE ObE2 168: SPCPT2 RMB Z 
WODE Ube 169: TEMP RMB 2 
WEE] BGK2 176: TEME2 EMB z 
G66E3 WHG2 171: TEHMP5 RMB 2 
GOES UBb2 172: TEME6 RMB zZ 
BGE7 9882 173: RETREG KMEB 2 
OLED BEE2 174: INDEX RMB iS 
VoOEL WeE2 175: XYEMP RMB Z 
W2EL €BL2 176: MACEND RMB 2 
BWEF bObG1 177: CRF RMB. 1 
178: 
V1l1b 179: ORG $0116 
186: 
vill@ w614 181: TABS RMB PA's) 
G124 G61 182: TABEND RMB 1 


6125 UGC 183: NUM RMB 12 


MAL/666€ 1.2: W2ZGE SSE 6&0 TEXT PROCESSOR 
LATE ‘TIME; Page 5; Form 2 
vi 2uG ls GRG SEZOE 
Zs 
3: * 
4: * >>>>> EROGRAM BWTRY FOINEL <<<<< 
of 
6 Zuk TEOZ3EB 6: START J: LNTRO 
7: 
8: * JUMP ABLE 
Y: 
vdils 727286 1@: GUTCH JMP $7286 TERMINAI CHARACTER OUTPEUD 
W206 7E7Z89 ll: INCH JMP $7289 TERMINAL CHARACTER INEUT 
269 7E7283 12: MON JMP $7283 ADDRESS IN MONITOR TO EXin 1 
v20C 7E1883 13: BPINIT JMP PRNIT PRINT INITIALIZATION 
Y26F T7E18A3 14: POUCH JMP PROUCH PRINTER CHARACTER CUTEUY 
15: 
wo Zl2 we 16: FCB ECIT REVISION CONTROL INFG 
6213 Obs 17: ACIADR FDB SOOGL ADDRESS OF CONSOLE ACIA it FRESEN 
U215 lEQF 18: MACROS FDB ENDTP MACRCS CAN START AT ENDL CE FROCRA 
0217 Z2EFC 19: LMACRO FDB S2EFD LAST AVAILABLE FOR MACRCS 
W219 GC1FF 26: STACK FDB SO1FF H/W STACK AREA 
21: 
“216 3E 22: ITEMCH FCB S3E ">" DEFAULT ITEM CRARACT!.& 
@21C 12 23: DHCHAR FCB $12 DOUBLE HEIGHT CONTROL CHA&:. 
UW21-E WE 24: DWCHAR FCB SOE DOUBLE WIETH CCNMTROL ChAR 
zZ25:3 
26: * VERSION STRING 
27: 
YW21E 322E3828 28: VERSTR FCC oe: 
G223 CDBAD4 29: FCB 13,160,4 
3@: 
31: * DISK ROUTINES 
3232 - 
(226 7E7291 33: ZFLSPC JMP $7291 
0229 787294 34: ZGCHAR JMP $7294 
G@22C 7E7297 35: ZGNCHR JMP $7297 
G2Zz2F 7TE7Z9A 36: ZANCHK JMP S$729A 
0232 7E72A9 37: ZTYPDE JMP $72AS9 
8235 7E7783 38: CBFM JMP $7783 
0238 7E7786 39: DFM JMP $7786 
4@: 
41: * MAIN PROGRAM STARTS KERE 
42: . 
O23B EE@219 43: INTRO LDS STACK *** SETUP STACK *** 
B23E BDO@2CF 44: JSR CLRSFC GO CLEAR SPACE 
8241 9791 45: STAA LOWPG SET PAGE LIMITS 
243 978F 46: STAA~  ERNTR 
0245 9796 47: STAA LPP 
G@247 4A 48: DEC A 
G248 9792 49; STAA HIPG 
(24A CE176C 5@: LDX #BANNER SAY HELLO 
w240 BG1636 51: JSR PSTRNG TELL THEM WHO WE ARE. 
0256 CE@21E 52:3 LDX #VERSTR AND THEN 
vw253 EL1638 53: JSR PDATA TELL THEM WHICH KEVISIGN 
8256 CE17EC 54: LDX #DATSTR PROMPT FOR DATE 
0259 BL1636 55: JSR PSTRNG 


MAL/68UG 1. 
; 


DPLE 


B75C 
V25r 
262 
3265 
HZ67 
ee tg 
WO Z6E 
UV2Z6F 
27 
ete 
#274 
wilt? 
W274 
G270 
BZ7D 
w 26h 
W283 
W236 
W288 
G 264 
w z&C 
o2eok 
¥W291 
wv 294 
OZ297 
G2Z9RK 
2290 
¥ ZAb 
GZAZ 
buA4 
 2A6 
vcA 
w ZAC 
ALPE 
&%2B2 
8 2B5 
G2E7 
G2RY 
@2ZBB 
QO 2BE 
H2C€ 
V2Cz 
G2C4 
G2C7 
uv ZCb 
in Sie: 
b 2CD 


% 2CF 
B20 w 
uw ?D3 
V205 
206 


TIME 


CLI5D5 
iC@G5A 
EDLZES 
2416 
9665 
ea 
FUL2ZES 
24€L 
3065 
4733 
POLZES 
2404 
9665 
474% 
CE LICE 
BE 1636 
EDWZE6 
6156 
2607 
27 OF 
CE ER26C 
zel5 
ChL1506 
BEL636 
Bb15b5 
TCURSA 
BC1ZEY 
2404 
9665 
9796 
CELTEC 
BD1636 
BULSES 
TCeUDSA 
BCIZES 
24D 
9665 


CEU@4F 
dik 6 
z2€18 


4k 
CEbH 3b 
A700 
3 
8COU8F 


w25E 
ge 6; 


50: 
ST: 
5G% 
59: 
6G: 
ol: 
O23: 
63: 
64; 
65: 
66: 
67: 
68: 
69: 
76: 


77: 
78: 


983 

99; 
100: 
161: 
162; 
lw3: 
1@4: 
105: 
186: 
107: 
108: 
109: 
11¢@: 


Form z 


INTRO3 


INTRO4 


INTRO5 


INTRO6 


JSK 
INC 
JSR 
BCC 
LDAA 
S'TAA 
JSR 
BCC 
LDAA 
STAA 
JSR 
ECC 
LDAA 
STAA 
LDX 
JSR 
JSR 
CMPA 
BNE 
STAA 
JSR 
BRA 
LDX 
JSR 
JSR 
INC 
JSR 
BCC 
LDAA 
STAA 
LDX 
JSR 
JSR 
LNC 
JSR 
BCC 
LDAA 
STAA 
JSR 
BCC 
LDAA 
STAA 
JSR 
CLR 
LDX.. 
bLSR 
BRA 


Sif 


GIBUF 
CMEFLG 
CHKNUM 
ITHYRO3 
INNUM 
MANTH 
CHKNUM 
INTRO3 
INNUM 
LAY 
CHKNUM 


INTRO3- 


INNUM 
YEAR 
#PRCU 
PSTRNCG 
INCH 
#'P 
INTRO4 
PRN'TR 
PINIT 
IN'TRO5 


#LPPSTR 


ESTRNG 
GIBUF 
CMFLG 
CHKNUM 
INTRO5 
INNUM 
TLPP 
#PGSTR 
PSTRNG 
GIBUF 
CMFLG 
CHKNUM 
INTRO6 
INNUM 
LOWPG 
CAHKNUM 
INTRO6 
INNUM 
HIPG 
CRLF 

A 
#GDNUM 
CLRSP2 
INIT 


6600 “LEAT 


GET LATE 


CiieCK IE VALIC 


CAT MONTH & SAVE 
CiECK FOR LAY 
GET & SAVE 
CHECK. FOR YEAR 
GET & SAVE 

EROMPT FOR PRINTER 
GET RESPONSE 

SET PRINTER FLAG 
INITIALIZE PRINTER 
LINES PER SCREEN? 
GET RESPONSE 
CHECK IF NUMBER: 
GET AND SAVE 
PRMPT FOR PAGES 
GET RESPONSE 
CHECK NUMBER 
GET AND SAVE 
CHECK HIGH PAGE 
GET IT 

OUT CR & LF 


CLEAR SPACE 


UG ENITLALIZE 


* CLEAR TEMPORARY SPACi. 


CLRSPC 


CLRSP2 


CLR 
LUDXxX 
STAA 
INX 
CPX 


A 


#NMREGS 


#ERNTR 


SET POINTER 

CLEAR SPACE 

BUMP POINTER 
FINISHED? 


PROCES 


MAL/O6@6 1.2: &2ZDB SSE 6606 TEXT ERCCESSOR 
LATE TIME; Page 7; Form 2 


G2L5 26F8 lll: BNE CLRSP2Z 
G2DE CEG6S93 112: LEX #SBFLG EO SECCND BLOCK 
V2LE ATEG 113: CLRSP4 STAA 6,X 
G2E0 08 114: INX 
02E1 8C@bCLD 115: CPX #BUP PWT 
QZE4 26F8 116: BNE CLRSP4 
@2E6 39 117: RTS RETURN 
118: 
119: * INITIALIZATION ANE SETUP 
120: 
Q2E7 CE#116 121: INIT LDX #TABS SET POINTER 
ZEA 4F 122: CLR A 
W2EB A722 123: INIT25 STAA G,X CLEAR TABS 
ZED 68 124: INX 
Q2EE 8C@i25 125; CPX #NUM 
G2F1 26FS 126: BNE INIT25 FINISHED? 
G2F3 4C 127: INC A 
WZF4 97C9 128: STAA JUST SET INITIAL PARAMS. 
@2F6 97CA 129: STAA JUST+1 
O2F& 97BZ 136: STAA ENDLIN MARK END LINE 
62FA 97EF 131: STAA CRF 
H2FC Y7BB 132: STAA FILFLG SET FOR FILL 
WZEE QY7BC 133: STAA FILELG+1 
6308 973D 134: STAA LINCNT INIT LINE COUNT 
w302 9732 135: STAA COLCNT 
0304 9777 136: STAA COLCN2 SET COLUMN CNT 
6306 9769 137: STAA PGN SET FEAGE 
6308 8641 138: LDAA #65 
W3GA 97B9 139: STAA WIDTH SET PAGE WIDTH 
G30C 97BA 140: STAA WIDTH+1 
w30E 973E 141: STAA LLN AND LINE LENGTH 
b318 9794 142: STAA LLN2 
@312 S7CB 143: STAA TLN SET TITLE LENGTH 
8314 97CC 144: STAA TLN+1 
6316 4c 145: INC A 
6317 973F 146: STAA PGL SET PAGE LENGTH 
@319 FE#215 147: LDX MACROS 
G@31C DFOF 148: STX NXTMAC INIT MACRO SPACE 
G31E DFYE 149: STX FSTAVL 
6320 SOFF 158: _LDAA_ . #SFF 
0322 A76O 151: INIT3 STAA 0,X 
9324 08 152: INX 
6325 EC#2Z17 153: CPX. LMACRO' FINISHED? 
0326 26F8& 154: BNE INIT3 
U32A LESY 155: | STX  LSTAVL 
v32C W9 156: DEX ©— a 
6320 6GFoO 157: CLR 0,X SET END CF MACROS 
H32F 6FO1 158: CLR 1,X 
J331 6F@2 1593 CLR zZ,X 
8333 86€D 168: LDAA #SD FIX BUFFER 
6335 B71AES 161: STAA CMNDBF 
338 86AB 162: LDAA #SAQ SET FILL CHAR. 
033A 97B4 163: STAA TFILL 
&33C CE1AB7 164: LDX #T RAPS 


W33F S6FF 165: LDAA #SFF INIT TRAPS 


MAL/6806 1.2: 6343 SSB 680@ TEXT PROCESSOR 
vALE TIME; Fage &; Form 2 
6341 A76Ee 166: INIT4 STAA 0, 
W343 68 167: INX 
@344 SC1lAE7 168: CPX #TREENL FINISHEL ? 
6347 26F8 169: BNE INIT4 
(345 CF18C3 176: LDX #LINBUF 
&634C LECL 171: STX BUFENT ST POINTER 
@34E LECF 172: STX BUF ENT+2 
8356 BDG@715 173: JSR FIXBFE tIX BUFFER END 
6353 beEbI 174: LDX BUFEND 
9355 EEFL3 175: STX EUFEND+2 
6357 CELOSE 176: LLX #&XTBUF 
6352 DFL7 177: STX EBFENL+2 
w35C CE1LDYD 178: LDX #MACTBL CLEAR MACRO TABLE 
G@35F DPED 179: STX MACEND 

18@: 

181: * MAIN PROCESSOR LOOP 

182: 
3361 CE187A 183: LDX #MACST POINT TO NAME 
6364 OFEB 184: STX XTEMP SAVE IT 
#366 CE1C51 185: LDX #TFCB FOINT TO FCB 
W364 DPFE&D 186: STX XTEMP2 SAVE IT 
b36E £6021B 187: LDAA ITEMCH SET ITEM CHAR 
G36E 974C 188: STAA ITEM 
U372 Coes 189: LDAB #9 SET COUNTER 
6372 DEEB 196: DERKOC] LDX XTEMP GET POINTER 
£374 A6u6 191: LDAA G,X GET CHAR 
W376 38 192: INX RUMP POINTER 
@377 DFEB 193: STX XTEMP 
37S BRED 194; LDX XTEMP2 GET DESTINATION 
U37B A763 195; STAA 3 EUT IN NAME 
WV37b €8 196: INX . 
W37E DF&ED 197: STX XTEMP2 SAVE 
6366 5A 198: DECB DEC THE COUNT 
$9361 260F 199: BNE CPROC] 
§363 CE1C51 200: LDX #TFCB POINT TO FCB 
0386 6FG2 261: CLR 2 SET TO DRIVE #6 
W388 8604 202: LDAA #4 OPEN FOR READ 
W38A A7&9 203: STAA 6,X 
93&C BD#238 204: JSR DFM CALL DFM 
038F 2763 205: BEC DPROC6 
0391 A6El 206: LLAA sie 
0393 8165 207: CMPA #5 CHECK FOR NO FILE 
0395 2763 208: BEQ DPROC2 
9397 7E16F3 209: JMP CODFM4 GO REPORT ERROR 
639A BDB229 Z1@: DPKOC2 JSR’. ZGCHAR GET CHARACTER 
G39L 818L 211: CMPA #SD ~ IS IT CR? 
639F 270D 212: BEQ DPRO24 
63Al 7FO@5F 213: CLR DONE 
@3A4 CE1CS5Si 214: LDX #TFCB POINT TO FCB 
H3A7 BOE®226 215: JSR ZFLSPC GET FILE NAME 
Q@3AA 242C zZ16: BCC DPROCS5 
@3AC 2@@B 217: BRA DLPROC3 
G3AE 7DOGB8A Z18: DPRO24 TST PSCNT FIRST NAME? 
§3Bl 2766 219: BEC DPROC3 
G@3B3 BDG235 220: JSR CLFM CLOSE DFM 


“AL/66EL 


Laie. 


i SUG 
t 4B 
d3BC 
wb 3EF 
B3C2 
w3C5 
ve aC 
w 3CB 
wot: 
WA 
b& 34 
i 30:6 
ae See: 
GSD 
vy 3bC 
ui 3k 
WOE 
b 3h 4 
USE 
w3EY 
UW 3EB 
™W3EE 


0 3F 1. 


OW 3F 4 


6316 


W366 
w3FA 
@3FC 
G3FE 
400 
6402 
0404 
6406 
GABE 
b40B 


vA Ge 
H412 
"412 
v414 
W416 
G419 
841B 
OH41E 
0422 
0422 
425 
0427 
G429 
04272 
6420 
04 2F 


1. 
CIM E.y 


TEGALT 
CELA 35 
2L1636 
EB&z35 
TEGZOS 
CEhib56 
PD1636 
BDO 266 
EE@22C 
PDUZZF 
24E 3 
Z20C 2 
G12A 
Z7L9 
ICOGEA 
CE1C51 
S604 
AGG 
EDO238 
2/69 
2DG232 
BD@235 
TEB2ES 
86u5 
A7GY 


9669 
9191 
2466 
C6 OF 
D76D 
ZOUA 
9192 
2303 
7EGA17 
TF UGOL 


S6BD 
6163 
2647 
9 66F 
TFC GBD 
2037 
BEG7TA4AC 
D6 5F 
2763 
TE BAB 8 
De6EB 
2429 
D6BLD 
C1él 
2219 
2711 


2% 


bag 


MO = 


Z243 
Zen: 
B23 
22a: 
At ee 
226: 


: Form 2 


iEROC3 


CPROC4 


GPROC6 


PROC 


PROC 3 


rROC4 
* TEST 


PUNTST 


PUNTS2 


PUNTS 3 


FUNT35 


IMP 
LUX 
JSR 
JSK 
JMP 
LD 
JSR 
JSR 
JOR 
JSR 
BCC 
ERA 
CMPA 
BEG 
INC 
LDX 
LDAA 
STAA 
JSR 
BEQ 
JSR 
JSR 
JMP 
LDAA 
STAA 


LDAA 
CMPA 
BCC 

LCAB 


STAB. 


BRA 
CMPA 
BLS 
JMP 
CLR 


FOR PUNCTUATION 


LDAA 
CMPA 
ENE 
LDAA 
CLR 
BRA 
JSR 
LLAE 
PEC 
JMP 
LDAB 
BEC 
LDAB 
CMPB 
BHI 
BEQ 


SSE Gbbb TLAT 


FINIS4 
f# LLEWN 
PETRNG 
CLEM 
MON 
#CHS'T 
PSTRNG 
INCH 
ZGNCHE 
ZAINCHK 
LCEROC3 
DPROC Z 
HO2ZA 
LERGC 4 
ESCNT 
FIFCE 
#4 

W,& 
CFM 
LEROC 6 
ZTYPDE 
CLEM 
MON 

#5 

O,%X 


PGh 
LOWFEG 
FROC3 
# $F 
NOOUT 
PUNTST 
AIPG 
PROC4 
FINIS4 
WOUCUT 


PFLG 
#3 
PUNTS3 
PCHAR 
PFLG 
JSTFY 
GETCHR 
DONE 
PUNT35 
FINISH 
FILFLG 
JOTPY 
PFLG 
#1 
PUNTS7 
PUNTS6 


FINiSt FrAGE 
rOiINW? ‘GO SITAING 
GCUTPLT 17 

CLOSE DFA 

EXI't' 
POINT 
GCUTPUT IT 

WAIT FOR CHAh 
oKLle CHARACTER 
CHECK CHARACTE: 


TO STRING 


cS ae? 


BUMP PASS COUMNTEE 
POINT ‘tO FCE 


REPORT EREOR 
CLOSE FILES 
RETURN TOG COS 

CET FOR REAL 
CHECK PAGE NUMBER 
AGAINST LOW PACE 


SET NG OUTEUT &LAG 


AGAINSY HIGH PAGE 


IF PAST, FINISH 


TEST FLAG 
GET SPARE CHAR. 
CLEAR PUNCT. FLAG 
GET NEXT CHAR. 
FINISHED? 

FILL ON? 


TEST PUNCT. FLAC 


PROCESECr 


DATEL 


043] 
3433 
0435 
W437 
Y43u 
vi4 3K 
wa sf. 
BAG 
G442 
Haga 
W446 
44% 
O44A 
Wa4c 
B44e 
6459 


W452 
455 
@457 
B459 
0455 
456 
B45 
6461 
6463 
U4et. 
Gdoe 
C46A 
H46C 
G46L 
W40F 
w47)] 
w473 
¥476 
G476 
B47E 
G47C 
0475 
V48H 
v48zZ 
0484 
G486 
W489 
0463 
w48D 
W4&E 
G49] 
C454 
€496 
G49 
049A 
v49C 


‘TIME: 


E1ZE 
2708 
8121 
2704 
513F 
2663 
TICBBEL 
2v1w 
S129 
27E7 
Z6CE 
o1LzeG 
Z7CA 
JTBE 
5620 
20EB 


CEL9SE 
DEEL 
DFEL5 
DECL 

€ lve 
2614 
Cé6EE 
2645 
DFSE 
7&6 5CC 
GO2u 
ATEH 
i& 
SCil 
26F9 
2021 
COG668 
A70G 
7ICGB32 
UE 
9CD1 
2606 
CL6BB 
2762 
2UBE.- 
&C195E 
2604 
SOUD 
ZAD4 
DECL 
TEE 3F8 
CD6BL 
C163 
2604 
S6EF 
Zu&B 


98433 
Page 1G; 


276; 
217s 
278: 
279: 
286: 
281: 
202% 
PR ope 
284: 
255: 
2662 
Z57: 
288: 
289: 
298: 
291: 


Form 2 


PUNTS 7 


* SUSE 


VOLE Y 


JSTEY4 


JSTFYS 


MPA 
BEC 
STAA 
LDAA 
BRA 


5. 


#'. 
PUNTS 4 
oe 
FUN its 4 
saad 
PUNUS5 
PEELG 


ee 
Palfrey 
ae te + 


SS od 


e$2u 
PUNT 4 
FUNTS 2 
SLE 
PUNTSZ 
PCHKAR 
#926 
SFUNTS4 


FICATION LOOP 


LOX 
OLA 
orx 
LUX 
CMPA 
ENE 
LipaR 


“pat 


fay te 
Pet $e 


#EXTBUF 


TEMP 2 
EBFEND 
BUF PNT 
#SD 
JSTFY3 
FILFLG 
JSTFY2 
STPOUT 
OQUTLIN 
#520 
u,X 


HUFENE 
JSTF25 
ISTE Y6 
TSULN 
G,X 

COLCNT 


EUFEND 
JSTFY4 


 FILFLG 


JSTFYA 
JSTFY6 


fEATBUF 


JSTFY5 
# SD 
JSTEY I 
EUFPNT 
PROC 
FFLG 
#3 
JSTF63 
PCHAR 
JSTF65 


OSE 


6860 TEXT -RCCESSOR 


oOLT FUNCT. FLAG 


(5 CBAR SPACE? 


CHECK FOR SPACE 


SAVE SFARE CHAR. 
DET FOR SEACE 


FIX EXTRA POINTERS 


GET BUFFER POINTER 
IS CHAR. A CR? 


FILL MODE? 


MARK LAST BUF. 
CUTPUT LINE 
GET A SEACE 
SAVE IT 

EUMP POINTER 
END OF BUFFER? 


PCS. 


UL CHAR 
CHARACTER 
COLUMN COUNT 
POINTER 


VEST 
SAVE 
BUMP 
PUMP 
END? 


FILL MCDE? 


BUFFER OVERFLOW? 
STUFF A C.R. 
SAVE BUF POINTER 


REPEAT LOOP 
ChECK FLAG 


GET CHARACTER 


MAL/6866 1.2: 


LA'TE 


WV49E 
B4A0 
G4A2 
H4A5 
v4A7 
GARG 
vSAA 
&4AC 
C405 
G4AF 
W4APa 
6 4154 
8 4B6 
U4B& 
%4B9 
J4BB 
# 4BC 
G4BFP 
gBa4CL 
84C3 
u4C5 
0 4C6 
B4CS 
G4CA 
w4CC 
VACE 
Baie 
B4D1 
v4b4 
B47 
w4ADY 
% 4B 
Vi4DE 
94Eb 
ob 4H 1 
Z4E3 
id 5 
w4b7 
W4EA 
B4EC 
J4EF 
C4e] 


vA 3 
(i 4F 4 
w4P7 
B4FG 
U4FE 
64FL 
O4F F 
vSDb 
v581 
6563 


VYIME; 


6126 
2151 
ELE74C 
$128 
274A 
36 
86268 
DEC] 
Hg 

SC LEC 2 
Z71IC 
ALS? 
Z6F6 
Q& 
9CD1 
2713 
A60G 
DFOF 
DEEL 
A760 
08 
DFE1 
DEDF 
6626 
A760 
20E6 
a 
7FEG76 
CE6124 
DF74 
DEE I 
BD€668 
ATUU 
Og 
DELS 
8120 
276C 
SC 198E 
2767 
BLG74C 
DED5 
2HES8 


SE 
CELSC3 
DEDB 
A680 
8126 
26089 
SC 

O§& 

9C LL 
26F 4 


331: GSTP63 CMPA 
3325 BEC 
55% USK 
3 3 4 = orp i FEN 
a ae Beebe 
33 eos bes 
328 SSTEHS ESE 
Ja7 LDAA 
2348 LGN 
Bon tel mee — sacha oy 
sp Ns to ¥ fest 
34¢: CPX 
Pee Bi 
ar Cae mea 2) 
5 ry 
a eau we 


INK 
CPX 
BES 
LDAA 
SPX 
LOX 
STAA 
LNX 
SEX 
LOX 
LDAA 
STAR 


ee L st 2 


ee 


ve « 


PO ee ED LO CO 
eo ve 


2s 


Ot (Sa in Ox] cn ide i> ths o> woe We ht 


So bb 


ma) CA is Go 


° CORA 
¢ JSTEYS Po, 
83 CLR 


ims) Xx 


CA Ut un un oan 


ee 
cme AO 
€3 


Co bas GA od Go Lop 9 oA fa) CO OO fo GO Go WW Ww GG) Go 9 Go Lar he ad 7) 


CMPA 
BEQ 
CPA 


JSR 
LDA 
BRA 


CLR 
LEX 
onl ip 
LOAA 
COMPA 
Ly BNE 
BHO + IRC 
‘ INX 
¢ CPX 
¢ BNE 


2 STH 
Sis LOX - 
62: JSTFS5 JSR 
3s oTAA 
ads INK 
S452 ax 


SSB 6¢bt 


#320 
ADBJSEC 
GETCHE 
ape 
ADUISEC 
A 

#S26 
BUF END 


s*LINBUF-1l 


JSTEYS 
a,> 
ISLEY 7 


BUPENG 
JSTEY9S 
U,X 
TEMPE 
TEMP2 
G,X 


TEMP2 
TEMP 
#520 
u,pX 
JSTFYS8 
A 
TABFLG 


#TABEND POINT TO 
NAT TAB - 


VEME 2 
TSULN 
a,x 


EBPEND 
#529 
ADJSPC 


1S ChAR = SPACE? 
WLXY CHABRACLER 
> PACE? 


GE 
Is if 


SAVE Ch&éR. 


GET TO END 


LOOK FOR SPACLS 


BUMP LFOINTER 


PICK UP CHARACTER 
SAVE X 
MOVE 


THE CHAR, 


RESTORE X 
SET WITH 
SAVE IT 
REPEAT 
RESTORE CHARACTER 
CLEAR TABS 

TALES 

SET NEXT TAB 
RESTORE X 

"EST UL CHAR 

SAVE LAST CHAR, 
BUMP POINTER 

SET END 

WAS CHAR A SPACE? 


SPACE 


#LINBU2 BUFFER OCVERFLCGW? 


ABJSPC 


GETCHR 
EBEFEND 
JSTF95 


B 


#LINBUF 


SPC PT] 
Or & 
#520 
AbIS 35 
B 


BUPEND 
ADGSF2 


GET NEXT CHAR. 
GET POINTER 


* ADJUST BUFFER FOR SPACES 


CLEAR COUNT 
POINT TO BUF BEGIN 


LOOK FOR SPACES 


INC THE COUNTER 


BUMP POINTER 


TEXT PROCESEC 


MAL/6800 1.2: 6588 SS v8e~e TEXT PROCESSOR 
DAT LIME; Page 12; Form 2 
@565 7E85CC 386: ADGS-3 JNP GLTLIN GUPTEUT Line 
0508 LFDD 387: ALGS35 Six SECEY2 SET ENL 
¥V5GA 5D6686 388: gSk CELCHR DOELFTE INIT. SPACES 
E506 CE18C3 36S: bieX ELERBUF c©OINT TO BEGIN 
S512 8626 396; LDAA #S22 CHECK MORE SEACES 
0512 Al1GO 391: AbGss4 CMPA gs 
68514 2767 392: FIC ACGSP» 
8516 88 393: LAX ULUMP TIL FINC 
6517 9CL1 394: Cex BUPREND END CF LUPEER? 
6519 27194 395: Rey ADJISE6 
E51E 26F5 396: BRA ADISE4 REPEAT 
H51D 8& 397: ALNSER INK BUMP POINTER 
U51E SCL1 398: CPX SUPEND PINISHED? 
G520 2605 393; BNE AbJS55 
£522 7TCEBAY 400: ZNC SWRCEF SLT SINGLE WORD 
BW525 2004 401: BRA ALJSP6 
6527 Al@@ 462: ADJS55 CMPA @,X CHECK KEXT CHAR. 
6529 27F2 463: BEQ ALJSE5 
G52E GeC7 404: ADJSP6 LDAB CNTFLG CENTERING? 
G52L 2783 405: BEC ALUSP7 
O52F 7EGE6L8 466: JMP CNTRIT GO CENTER LINE 
9532 D6éC9 467: ALJSb? LDAB JUST JUSTIFICATION? 
€534 Z27CF 408: BEQ ADJSP3 
£536 C6C3 40S: L.DOAB RTT RIGHT HAND? 
0538 2763 410: BED ABDISPS 
G53A 7E@676 4ll: JMP RIGHTJ GO DO RIGHT 
£53b CéC1 412: ADJSPS LAr CNJ CENTER JUST.? 
UW53EF 2763 413: BE) ADUSPY 
6541 7E6681 414: CME CENYJ GO CENTER 
0544 D6AS 415: ADJSEY LDAB SWRDF CHECK SINGLE 
0546 26BL 416: BNE ADISSP3 Pe i 
0545 D666 417: LAB PLBFE i LUSHING BUFFER? 
§54A 26B9 418: BNE ADGSP3 
&£54C D662 419: LEFT WHICH SIDE 
W54E 273A 426: RINS GO FROM RIGHT 
421: 
422: * INSERT SPACES FROM LEFT 
rN a tes 
G655@ Ck18C3 424: LINS abs SLINBUF SET POINTER 
9553 DEDF 4252. SEX TEMP SAVE IT 
6555 DED 426: LINS2 BELXx BUFEND POINT TO END 
0557 @9 427: DEX DEC THE POINTER 
0558 A6Bb 428; iDAA @,X GET CHARACTER 
OW55A 8126 4292 CHPA #528 IS IT A SPACE? 
¥55C 26A7 436i; BNE ADJSP3 | 
wW55E DELF 431: Lux VEMP RESTORE POINTER 
566 A6HB 432: LINS3 LOAA 0,X GET CHAR 
6562 8120 433; CMPA #529 IS IT SPACE? 
0564 2767 434; BES LINS4 
6566 8 435: INX LUMP POINTER 
0567 ¥CL1 436: CR BUFEND END OF BUFFER 
W569 27E5 437: BEO LINS 
V56B ZuF3 438; ERA LINS3 REPEAT 
356 C6@l 439: LInS4 LDAB #3 GET COUNT = 1 
O56F ELG6AC 449: JSR INSSPC GO INSERT SPACE 


MAL/6806 1.2: 


vATE 


O572 
0574 
W576 
0577 
G579 
H5 7B 
05 7D 
UOTE 
6586 
W582 
W584 
J5d6 
6588 


858A 
85 8C 
Q58E 
v5 SF 
YV591 
0593 
6595 
w597 
8598 
G59A 
@59C 
U59E 
Y5AG6 
G5SAz 
@5A4 
G@5A6 
U5SA7 
GO 5AA 
G5AC 
0 5AE 
65B8 
G@5B3 
65B5 
@5B7 
v5B8 
6 5BA 
Q5BC 
& 5BE 
G5C@ 
@5C1l 
G85C4 
05C6 
05C8 
OS5SCA 


BSCC 
G5CF 


6574 


TIME; Page 13; 


Gecl 
2701 
39 


8C18C2 
27DE 
20F 2 


7FE BAY 
D63E 


441; 
442: 
443: 
444: 
445; 
446; 
447; 
446: 
449; 
456; 
451: 


Form 2 


LINS5 
LINS6 


LINS7 


LDAB 
BEQ 
RTS 
LDA 
LDAA 
CMPErA 
BNE 
LNX 
CPX 
bkO 
BRA 
STX 
BRA 


SSB 6866 


CNJ 
LIWSS 
KETORN 
TEMPE 
QO, 

# Sau 
LINS7 


EQFEND 
LINS 
LINS6 
TEMP 
LINS2 


* INSERT SEACES FROM 


RINS 


RINS2 


RINS 3 


RINS4 


RINS5 


RINS6 
RINS7 


RINS8& 


* OUTPUT LINE 


LDX 
LDAA 
DEX 

MEA 
REQ 
SIX 
LDX 
DEX 
LDAA 
CMPA 
BNE 
LUX 
LDAA 
CMEA 
BEQ - 
LEX 
CPX 
BEO 
BRA 
LDAB 
JSR 
LDAB 
BEG 
RTS” 
LDX 
LDAA 
CMPA 

BNE 


DEX 


CPX 
BEQ 
BRA 
STX 
BRA 


OUTLIN CLR 


LDAB 


RINS3 


TEXT 


CENTER JUST? 


RESTORE POINTER 
GET 
is 


CBRARACTER 
IT SEACE? 
BLUME POINTER 
END OF BUFFER? 
SAVE X 

REPEAT 

RIGHT SIDE 


SET FOINTER 


LUFENL 

#528 SET UP SPACE 
O,x% IS CHAR A SPACE? 
RINS2 

TEMP SAVE POINTER 
BUFEND GO TO END 

0,X GET CHAR. 
#520 IS IT SPACE? 
CUTLIN 

TEMP RESTORE X 

O,X GET CHAR 

#5Z6 IS If SEACE? 
RINS5 oo... 

BEC THE POINTER 
#LINBUF-1 FINISHED? 
RINS 

RINS4 REPEAT 

#1 SET COUNT = 1 
INSSPC INSERT SPACE 
CNJ CENTER JUST? 
RINS6 
RETURN 

TEMP RESTORE POINTER 
O,X GET CHARACTER 
#$20 SPACE?. 

RINS8 

#LINBUF-1 FINISHED? 
RINS | 

RINS7 REPEAT 

TEMP SAVE FUINTER 


FROM WORK BUFFER 


SWRDF 
LEM 


CLR FLAG 
LEFT MARGIN? 


PROCESSOR 


MAL/6860 1.2: 


CATE 


@5014 
UV5D4 
05D6 
G5D8 
U5DB 
£50D 
G5SDF 
W5t1 
G5n3 
UW 5E4 
G5E7 
0 5E8 
G5E9 
8 5EB 
O5ED 
B5EF 
O5F1 
U 5F 3 
¢5SF6 
w5F& 
B5F9 
bv SFE 
6 5FD 
0 5FE: 
BOUb 
603 
BOGS 
G687 
C669 
66 8C 
668C 
b6 OF 
voll 
0612 
C614 
£616 
6618 
WOLA 
G61C 
G61F 
8622 
0624 
0627 
0629 
06 2C 
06 2F 
$631 
0633 
0635 
0636 
#638 
063A 
063C 
063D 
06 3F 


LIME; 


7 DOO 6F 
2602 
DB38 
TE UK OF 
DB7@ 
ZB OC 
270A 


AGELO 
BB1645 
08 

9C 9D 
26F6 
oF 
D78zZ 
b764 
D/BD 
D768 
b776 
734062 
CE18C3 
DFCD 
CE#118 
CF74 
BD15A5 
CE195E 
9CD5 
2717 
AbUb 
6& 
CFDF 
DECD 
A708 
U8 
9CDI 
27@9 


W5D4 
Page 14; 


496: 
497: 
498: 
499: 
520: 
561: 
502: 
5@3: 
564: 
5653 
586: 
507: 
588: 
569: 
518: 
511: 
512: 
513: 
514: 
Si 56 
516: 
517: 
518% 
519: 
5263 
521: 
522: 
5238 
524: 
5253 
526: 
527: 
528: 
529; 
536: 
531s 
532: 
338 
534: 
535: 
536: 
537: 
538: 
539: 
546: 
541: 
542: 
543: 
544: 
545: 
546; 
547: 
548: 
549; 
556: 


Form 2 


OUTLIZ 


OUTLI3 


OUTLI4 


OUTLI5 


OUTL55 


OUTLI6 


OUTL75 


Se 


f; 
vd 
a ft 


or ae 


iy. or 
Wy bag 


« 
coeal 


pt co ot oe 
ee! 


tn in = 
> 
oe] 


126 So -ee 


cm 


ENE 
LUAEB 
BEG 
LBAA 
LDX 
CPX 
EEQ 
DEX 
CMPA 
BEQ 
INX 
STX 
LDX 
CPX 
BEC 
LDAA 
JSR 
INX 
CPX 
BNE 
CLR 
STAB 
STAB 
STAB 
STAB 
STAB 
COM 
LDX 
STX 
LUX 


STX 


JSR 
LDX 
CPx 
BEC 
LDAA 
INX 
STX 
LDX 
STAA 
INX 
CPX 
BaQ 


SSB 6604 TEXT EROCESSOR 

ELEL FUT IN INDENT? 
GUELTI 
: ‘ED ALGUST LEFT 
hehe LL 
E. STN ADD Iw SINCLE in, 
oo 
CUPLI3 
kS22 SET UF SPACE 
B 
OULTCHR CUTPUT SPACE 
is 
5 LEC COUNT 
GUTLI2 
FILELG #tILL NOLE? 
OUTLI5 
#528 SETUP SPACE 
BUFEND GO TO END 
#LINBUF EMPTY? 
CUTLI6 
DEC THE POINLER 
G,X IS IT SEACE? 
OUTLI4 

LUMP POINTER 
STPOUT SET END 
#LINBUF 
STPOUT EMPTY? 
OUTLI6 
v,X GET CHARACTER 
OUTCHR OUTPUT IT 
BUME POINTER 
STPOUT FINISHED? 
OUTL55 
B CLEAR FLAGS 
DWFLG 
NOFL 
EFLG 
NSP 
SIN 
LEFT SWITCH SP. SIDES 
#LINBUF SET POINTER 
BUFPNT nes 
#TABS SET TABS 
NXTTAB | 
FIXWD GO FIX WIDTH 
#& XTBUF 
EBFEND CHECK FOR EXTRA? 
CUTLI8 
0,X GET CHARACTER 
TEME 
BUFPNT TRANSFER IT 
G,X 

EUMP POINTER 
BUFEND CHECK END 
CUTLI8 OVERFLOW! 


MAL/680® 1.2: 9643 


DATE 


do4] 
8643 
£645 
§648 
064A 
664D 
06 4F 
€652 
$654 
0656 
vo57 
G65¢ 
065A 
865D 
¥O5E 
v666 
0662 
6664 
C665 


0668 
G66B 
666 
J67E€ 
0671 
8673 
8675 


6676 
06079 
b67C 
067E 


6681 
vo83 
0684 


V686 
8688 
Q68A 
G6 &C 
W68E 
0692 
§692 
G693 
6695 
0697 


TIME; 


BFCD 
DECF 
708032 
20E5 
CE195E 


7DEO4E 
2768 
BD12B5 
5D 
2762 
SA86 
39 


BEO6DA 
CE18C2 
8D2E 

TE®5CC 


Page 15; 


5513 
552: 
553% 
554: 


SSB 6566 TEXT PROCESSOR 


Form 2 
STX BUFPNT SAVE IT 
LDX TEMP j 
INC COLCNT BUMP COLUMN COUNT 
BRA CUIL75 REPEAT 
OUTLI8 LDX #EXTBUF FIX POINTER 
STX EBFENC 
JSR PCKLF OUTPUT CR & LF 
LDAA MSC MULTIPLE SPACE? 
BEG OUTL&5 
OUTL82 LEC A . 
BEG OUTL8S5 
PSH A CUTEFUT EXTRA SPACE 
JSR PCRLE 
FUL A 
BRA OUTL82 
OUTL&85 LDAA FLEF FLUSEING? 
BEG OCUTLIS 
RTS 
OUTLI9 JMP PROC GO PROCESS 
* TEST UNDERLINE CHARACTER 
TSULN TST ULFLG TEST FLAG 
BEG TSULNZ 
JSR CLSFY CLASS CHARACTER 
TST B 
BEC TSULN2 
ORAA #556 SET PARITY 
TSULN2 RTS RETURN 
* RIGHT HAND JUSTIFY 
RIGHTJ JSR CNTSPC COUNT SPACES 
RIGHT2 LDX #LINBUF-1 
BSR INSSEC INSERT SPACES 
JMP CUTLIN OUTPUT LINE 


* CENTER JUSTIFY 


CENTIJ BSR CNTSPC 
~ ASR B 
RIGHT2 


BRA. 
* DELETE. CHARACTERS 


SPCPT2 


DELCHR LDX 
CPX SPCPT1 
BEQ DELCH4 
CPX BUF END 
BEQ DELCH3 
LDAA O,X 
INX 
STX SPCPT2 
LDX SPCPT1 
STAA O,X 


COUNT SPACES 
DIVIDE BY 2 


GET POINTER 
EMPTY ? 


GET CHARACTER 
BUMP THE POINTER 
SAVE IT 

RESTORE 

SAVE CHARACTER 


MAL/6860 1.2: 


DATE 


V699 
069A 
06 9C 
V6SE 
G6AB 
06A2 
B6A4 
§ 6A6 
GVOAS 
WAY 
G6AB 


B6AC ! 


VOAL 
YOAF 
6 6Bb 
G6B2 
G6B4 
GOB6 
66B7 
VOBE 
WOBA 
GOBC 
¥ OBE 
BOC GB 
@6C2 
BOC 4 
b6C5 


w6C7 CL 


86C9 
K6CB 
8 OCC 
QOCE 
vODO 
GoD] 
66D3 
G6D4 
G6D6 
86D7 
06DY9 


G6DA 
GOB 
YV6DD 
QODF 
VOEb 
OGE2 
GOE4 
®6E5 
GOE7 


TIME ; 


08 

DFDB 
26E8 
DEDB 
8620 
SCD1 
2765 
A7&O 
b8 

20F 7 
39 


Q69A 
Page 16; 


606: 
607: 
608: 
609: 
616: 
611: 
612: 
613: 
614: 
615: 
616: 
617: 
618: 
619: 
620: 
621: 
622: 
623: 
624: 
625: 
626: 
627: 
628: 
629: 
638: 
631: 
632: 
633: 
634: 
635: 
636: 
637: 
638: 
639: 
648: 
641: 
642: 
642: 
644; 
645: 
646: 
647: 
648: 
649: 
658: 
651: 
052: 
653: 
654: 
655: 
656: 
657: 
658: 
659: 
6600: 


SSB o&60 TEXT 


Form 2 
INX BUMP 
STX SPCET1 
BRA DELCHR 
DELCH3 LDX SECPT 1 
LDAA #S208 
DELC35 CPX BUFEND 
BEQ CELCH4 
STAA 0,xX 
INX BUMP 
BRA DELC 35 
DELCH4 RTS 
* JNSERT SPACES 
INSSPC TST B 
BEQ INSSE5 
PSH B 
STX TEMP 
LDX BUFEND 
STX SECPT1 
INSSP2 INX 
DEC B 
BNE INSSP2 
STX SPCPT2 
INSSP3 LDX SPCPT] 
CPX TEME 
BEQ INSSP4 
LDAA G,X 
DEX DEC 
STX SPCPT1 
LDX SPCPT2 
STAA 0,X 
DEX 
SUX SPCPTZ 
BRA INSSE3 
INSSP4 PUL B 
LDAA #5206 
INSS44 INX BUMP 
STAA § @6,X- 
~DEC B 
BNE INSS44 
RETURN 


INSSES RTS 
* COUNT SPACES 


CNTSPC CLR B 


LDUAA #528 

LDX BUFEND 
CNTSP2Z DEX 

CMPA O,X 

BNE CNTSP3 

INC B 

BRA CNTSP2 


CNTSP3 RTS 


PROCESSOR 


POINTER 


REPEAT 
GET POINTER 
SETUP SPACE 


FUL IN SFACE 
POINTER 


TEST COUNT 

IF NONE, RETURN 
SAVE COUNT 

SAVE X 

POINT TO END 
SAVE 


GEC THE COUNT 


SAVE POINTER 
FINISHED? 


GET CRARACTER 
THE POINTER 
SAVE IT 


PUT CHARACTER 


REPEAT 
RESTORE COUNT 
SETUP SPACE 
THE POINTER 
STUFF SPACE 
DEC THE COUNT 


CLEAR COUNT 
SETUP SPACE 
SET POINTER 
SPACE? 


BUMP THE COUNT 


MAL/680@ 1.2: B6E8 SSB 6866 TEXT PROCESSOR 
DATE TIME; Page 17; Form 2 
661: * CENTER LINE 
662: 
C6E8 8DFO 663: CNTRIT BSR CNISPC GO CCUNT SPACES 
G@6EA 9682 664: LDAA DWFLG DOUBLE WIDTH? 
B6EC 276E 665: BEQ CNTRI4 
QGEE 96B9 666: LDAA WIDTE GET WIDTH 
G6F0 1G 667: SBA 
GOF1 46 668: ASL A FIX FOR DOUBLE 
®6F2 91B9 669: CMPA WIDTH 
B6F4 226C 676: BHI CNTRI5 
Q6F6 16 671: TAB SAVE 
YV6F7 96B9 672: LDAA WIDTH 
O6F9 18 673: SBA SUB FROM WIDTH 
G6FA 16 674: TAB 
G6FE 57 675: ASR B DIVIDE BY TWO 
G6FC 57 676: CNTRI4 ASR B 
G6FD CE18C2 677: LDX #LINBUF-1l SET FPCINTER 
0766 8DAA 678 BSR INSSPC GO INSERT SPACE 
6762 TA@BC7 679: CNTRI5 DEC CNTFLG DEC CENTER COUNT 
O765 268B 680: BNE CNTRI6 
G77 4F 681: CLR A 
6708 97C7 682 STAA CNIFLG CLEAR FLAG 
Y70A 9663 683: LDAA TFILF GET TEMP FILL 
@78C 97BB 684: STAA FILFLG SET FILL 
876E DED1 685 LDX BUFEND SET POINTER 
6718 DFSD 686 STX STPOUT SET END 
@712 7E®5CC 687: CNTRI6 JMP OUTLIN OUTPUT LINE 
6838: 
689: * FIX BUFFER END POINTER 
696 
0715 CE18C3 691: FIXBFE LDX> #LINBUF SET POINTER 
W718 DFDI 692 STX BUFEND 
6714 963B 693 LDAA LLN GET LINE LENGTH 
071C 9UB9 694 SUB. A WIDTH CALC. COLUMN NUM. 
W71E 4C 695: INC A 
B71F 9732 696 STAA COLCNT SAVE COUNT 
@721 5F 697: CLR B 
86722 96B9 698: LDAA WIDTH GET WIDTH 
0724 I9BD2 699: ADD. _A BUFEND+1 ADD TO BUFEND 
6726 DYDI 706: ADC B BUFEND 
8728 97D2 701: STAA BUFEND+1 SAVE RESULT 
072A D7D1 7023 STAB BUFEND 
872C 39 783: RTS RETURN 
7043 ad 
705: * RETURN FROM MACRO 
7663 : 
G@72D 7TF@BTC 787: RETMAC CLR FINMAC CLEAR FLAG. 
9738 32 708: PUL A FIX STACK 
6731 32 769: PUL A 
@732 32 716: PUL A 
0733 97C7 (eee STAA | CNTFLG RESTORE FLAG 
W735 CE@O55 7i2e LDX #NUMPNT 
67368 32 713: RETMA2 PUL A RESTORE VALUES 
6739 A76@ 714: STAA O,X 
073EB 68 7253 INX 


MAL/6660 1.2: 


LATE 


U73C 
U7 3F 
6741 
0744 
0746 
W746 


274% 


@74C 
G7 4F 
W751 
Q753 
8755 
O757 
675A 
®75C 
G75E 
G76 
6762 
6764 
876% 
0767 
&769 
67 0B 
%76G 
O76F 
8771 
8773 
6776 
W778 
W778 
077D 
O77F 
8782 
9784 
G786 
& 788 
678A 
B7EC 
078E 
O79] 


6754 
0796 
6798 
079A 
G79D 
079F 


TIME; 


8COH62 
26F7 
TABO7F 
9661 
270B 
39 


TE QOB 2 


BD1666 
967C 
26DA 
9657 
27083 
7E1285 
965A 
2760 
DED 
AbbO 
816D 
2761 
08 
DFD9 
2629 
9693 
20EF 
96 5B 
2768 
BDOFB2 
261C 
7E1@4C 
9684 
2705 
BD@266 
2010 
9683 
9A5E 
2607 
9676 
2703 
7E @BF @ 
BD166F 


811A 
2605 
975F 
7EGAGS 
816D 
262C 


G73F 
Page 18; 


7163 
717: 
7183 
7193 
726: 
721: 
722: 
723: 
724: 
7253 
726: 
727: 
728: 
7293 
736: 
731: 
732: 
733: 
734: 
7353 
736: 
7373 
738: 
7393 
746: 
741: 
742: 
743: 
744: 
745: 
746: 
7473 
748: 
749: 
756: 
7513 
T5zZ¢ 
753: 
754: 
7553 
756: 
7573 
758: 
7593 
766: 
761: 
762: 
7633 
764: 
765: 
766: 
767: 
768: 
769; 
776: 


a 


Form 2 

CEX #LEFT 
BNE RETMA2 
DEC MACCNT 
LDAA ATFLG 
BEQ GETCH1 
RTS RETURN 

* CLEAR 'ENDLIN' AND 

CLRGET CLR ENDCLIN 


* GET NEXT CHARACTER 


GETCHR JSR TSTBRK 
LDAA  FINMAC 
BNE RETMAC 
GETCH] LDAA  EXCHR 
BEQ GETCH2 
JMP FTCHNM 
GETCH2 LDAA  CMFLG 
BEQ GETCH3 
GETC22 LDX CMNPNT 
LDAA 6, X 
CMPA  #SD 
BEC GETC25 
INX BUMP 
GETC 25 STX CMNPNT 
BRA FETCHR 
GETCH3 LUAA  SBFLG 
BNE GETC 22 
LDAA  MBEFLG 
BEQ GETCH4 
JSR INMAC 
BNE FETCHR 
JMP MCEND 
GETCH4 LDAA  SPIFLG 
BEQ GETCHS5 
JSR INCH 
BRA FETCHR 
GETCH5 LDAA  DFMFLG 
ORA A 
BNE GETCH6 
LDAA  TABFLG 
BEG . GETCH6 
JMP DOTAB 
GETCH6 JSR INCHR 


6869 TEXT PROCESSOR 
t INISHED? 
DEC MACRO COUNTER 
DOING AT? 


GET CHARACTER 


TEST FOR BREAK 
FINISH MACRO? 
GET EXTRA CHAR. 


CET NUMBER 
COMMAND? 

SET FOLNTER 
GET CHARACTER 
C.R.? 


THE POINTER 
SAVE IT 


SPECIAL BUFFER? 
MACRO BUFFER? 
GET CHARACTER 


FINISH MACRO 
SPECIAL INPUT? 


GET CHARACTER 


DEFINE MACRO? 
NOCR 


TABS? 


-GO DO TAB 


GET CHARACTER 


* FETCH AND CHECK CHARACTER 


FETCHR CMPA #S1A 
BNE FETCH2 
STAA LONE 
JMP FINISH 

FETCH2 CMPA #$D 
BNE FETCH3 


END OF FILE? 
SET FLAG 


C.R.? 


MAL/6800 1.2: O7A4 SSB 6806 TEXT PROCESSCR 
DATE TIME; Page 19; Form 2 

(7Al1 7FO6E6B 771: CLR SPSPF SPECIAL SPACE? 
G@7A4 D65E 772 LDAB NOCR 

Q7A6 2635 773 ENE FETC35 

G7A8 D693 774: LUAB SBPFLG CHECK FLAG 
G7AA 2607 775: BNE FETC22 

W7AC D6B2 776 LDAB ENDLIN END OF LINE? 
G7AE 2763 777: BEQ FETC22 

§7B6 BDOIEL 778 JSR FLUSHB FLUSH BUFFER 
&£7B3 97B2 779: FEPC22 STAA ENDLIN SET FLAGS 
G@7B5 7F6093 780: CLE SBF LG 

¢7B8 TFOO4E 781 CLR ULFLG 

G67BE D683 782 LUDAB DFMFLG TES1 

W7BD DAC7 783 ORA B CNTFLG 

Q7BF 2668 784 BNE FETC 25 

87C1 Cé6BB 785: LDAB FILFLG TEST FILL 
€7C3 2704 786: BEG FETCZ5 

Q7C5 8620 787 LDAA #520 SETUE SPACE 
67C7 2019 788 BRA FETC 36 

€7C9 860D 789: FETC25 LDAA #S$D SETUP C.R. 
@7CB 2015 796: BRA FETC 36 

07CD D683 791: FETCH3 LDAB DFMFLG GET FLAG 
V7CF DA8O 792: ORA B PASFLG 

J7D1 266A 793 BNE FETC35 

07D3 D66A 794 LDAB PASCHR PASS CHAR? 
Q97D5 270F 795 BEQ FETCH4 

$77 8126 796 CMPA #928 IS IT A SPACE? 
G7D9 2682 797 BNE FETC35 

G7DB SA8@ 798: ORA A #S80 SET PARITY 
Q@7DL 5F 799: FETC35 CLR B CLEAR FLAGS 
67DE D7B2 880 STAB ENDLIN 

O7E@ C76A 861 STAB PASCHR 

W7E2 7FG@GAA 862: FETC36 CLR CAP 

G7E5 39 893: RTS RETURN 

G7E6 81I1E 684: PETCH4 CMPA #S1F CHECK CHAR 
Q7E8 2283 805: BHI FETC45 

O7EA 7E®74C 806 JMP GETCHR GO GET CHAR, 
®7EC Dé6B2 887: FETC45 LDAB ENDLIN END OF LINE? 
QO7EF 271A 668 BEQ FETCH5 

G7F1 812E 829: CMPA e* PERIOD? 

UV7F3 2786 818 BEQ ~FETC47 

O7F5 813A 811: CMPA #"3 COLON? 

G7F7 2665 $12 BNE FETC 48 . 

W7F9 9764 813: STAA NOFL SET NO FLUSH 
@7FB 7E®8A2 814: FETC47 JMP COMANG DO COMMAND 
G7FE 81286 815: FETC48 CMPA~. #520 . SPACE? 

O860 2669 816 BNE FETCH5 

£602 976B 817: STAA SPSPF SET FLAG 
0804 BDO@IE1 818: JSR FLUSHB FLUSH BUFFER 
0867 86A¥d 819: FETC49 LDAA #SAG 

0899 20D2 826 BRA FETC35 

®86B D66B 821: FETCH5 LDAB SPSPF TEST FLAG 
886D 2707 622 BEQ FETC55 

G80F 812¢ 623 CMPA #520 IS If SPACE? 
@811 27F4 824: BEQ FETC 49 

0813 7F686B 825 CLR SPSPF CLEAR OUT 


MAL/686@ 1.2: 


DATE 


6816 
6818 
W81A 
uB1C 
W81E 
0520 
6822 
0624 
0626 
6828 
O82A 
GBZC 
O82E 
68340 
6832 
6633 
0835 
0837 
8839 
08 3B 
083E 
6846 
0842 
6844 
%846 


TIME; 


D65A 
DA5B 
DA81 
DA8&4 
DA93 
261C 
91B3 
2618 
DE74 


08468 26 


O84A ij 


G@84C 
8847b 
O84F 
W851 
0654 
6857 
B65 
A85A 
855C 
O85F 
0861 
6863 
6865 
0868 
G86A 
Q86C 
O86k 
8870 
8&72 
0874 
G76 
0878 
W87A 
G87C 
8& 7E 
B88 
6882 
884 


BD1357 
a5 
D75E 
24DF 
7E@74C 
& 156 
2605 
976A 
JEG749 
6148 
Z271C 
815E 
2721 
D6OAA 
DAAEB 
DADA 

2 6C 3 
8141 
25EF 
815A 

2 2ZBB 
L66C 
27B7 
8B 20 


6615 
Page 2@; 


826: 
827: 
828: 


Form 2 


FETC55 


FETC57 


FETC58 


FETC 5S 
FETCH6 


FETC65 


FETCH 7 


FETC75 


SSB 6800 TEXT PROCESSOR 
CMFLG COMMANL ? 
B MBELG 
5 NONUMS 
B SPIFLG 
B SBFLG 
FETCH 6 
TAB CHECK IF TAB 
FETCH6 
NXTTAB GET NEXT TAB 
COLCNT GET COUNT 
GS CHECK 
FETC 35 
0,X FINISHED? 
FETC58 
BUMP THE POINTER 
FETC57 
NXTTAB SAVE POINTER 
TFILL 
TABFLG SET FLAG 
FETC 35 
NONUMS NUMBERS? 
FETCH7 
#* + FOUND SIGN? 
FETC65 
#'S PERCENT SIGN? 
FE'TCH7 
NOCR DO C.R.? 
B 
NOCR SAVE VALUES 
NOEXP | 
CLRNUM CLEAR NUMBER 
PRNU32 PROCESS NUMBER 
B 
NOCR RESTORE VALUES 
FETC59 
GETCHR GET CHARACTER 
#'\ RACK SLASH? 
FETC75 
PASCHR SET PASS CHAR. 
CLRGET GO GET IT 
#'@ AT SIGN? 
CAPIT a 4 
#S5E UP ARROW? 
SETCAP . 
CAP - CHECK MODE 
B SCAP © 
EB CMFLG 
FETC59 
#'A CHECK IF LETTER 
FETC59 
#'Z 
FETC59 
DOCAP DO CAP? 
FETC59 
A #$20 FORCE TO LOWER 


MAL/6866 1.2: 0888 SSB 686@ TEXT PROCESSOR 
DATE TIME; Page 21; Form 2 


0886 26B3 881: FETCH8 BRA FETC59 

882: 

683: * CAP SINGLE LETTER 

884: 
6888 DL66C 885: CAPIT LDAB COCAP CHECK MODE 
G88A 27FA 886: BEQ FETCHS8 
688C SOT7AA 887: STAA CAP SET FLAG 
Q&8E 7EB749 888: CAPIT2 JMP CLRGET 

889 

896; * CAP STRING OF LETTERS 

891: 
0391 C66C 892: SETCAP LDAB DOCAP CHECK MODE 
8893 27F1 693: BEQ FETCH8 
895 D6AB 894: LDAB SCAP GET FLAG 
0897 2705 895: BEQ SETCA2 
(899 7FOGBAB 896: CLR SCAP CLEAR IT 
@89C 26FO 897: BRA CAPIT2 
O89F Q9T7AB 898: SETCA2 STAA SCAP SET FOR STRING 


Q5AG 26EC 899: BRA CAPIT2 


MAL/68600 1.2: 


DATE 


Q8AZ 
GEAS 
V8AG 
BW 5AG 
GEAC 
@ SAE 
v8B] 
¢ 8B4 
6 8B6 
6 8B9 
6 8BC 
UW SBE 
G BC & 
GsC 2 
G8C5 
G 8C& 
BCA 
8&CB 
G8CD 
@ECE 
G8DEF 
08D2 
88D4 
UEDO 
08D8 
W 8DE. 
§8DD 
B8ECF 
G8E1 
USE 3 
0 8E5 
68E7 
Q8E9 
6 8EB 
88EC 
@ 8ED 
0 8EE 
Q 8EF 
G8F2 
6 SF 4 
O8F5 
Q8F7 
O8F9 
QB 8FA 
O8FC 
0 SEF 
09G1 
8983 
0905 
6987 
C909 
O9UB 


TIME; 


JE OOBZ 
CE LAES 
U8 
TCOB5E 
DEES 
7C 6681 
BD@74C 
DEE5 
TF OO5E 
JF OO8I1 
A796 
S18D 
26E6 
7F 6 OB2 
CEIAES 
Abdu 


CHZO 
CEBA26 
Alby 
Z00C 
Elwl 
2668 
975A 
EE@2 
ADOG 


CE1D9D 
9CED 
2717 
AlG®B 
2604 
E161 
2729 
U8 


G8A2 
Page 22; 


WO MOsxI AN Om Whe 


ee 


SSB ov€0 TEXT 


PROCESSOR 
Form 3 
* COMMAND PROCESSOR 
COMAND CLR ENDLIN CLEAR FLAG 
LBX #CMNLBF-1 SET POINTER 
COMAN2 INX BUMP IT 
INC NOCR SET NO C.R. 
STX TEMP6 SAVE POINTER 
INC NONUMS 
JSR GETCHR GET CHARACTER 
LDX TEMP6 RESTORE POINTER 
CLR NOCR CLEAR FLAG 
CLR NONUMS 
STAA 0,xX PUT CHARACTER 
CMPA #SC WAS IT A C.R.? 
BNE COMAN 2 
CLR ENDLIN KESET END LINE 
LDX #CMNDBF SET POINTER 
COMAN3 LDAA Q,X GET CHARACTER 
INX BUMP THE POINTER 
LDAB 0,X GET NEXT CHAR 
INX BUMP 
STX CMNPNT SAVE THE POINTER 
CMPA #S5F LOWER CASE? 
BLS COMAN 4 
SUB A #$20 SET TO UPPER 
SUB B #$26 
COMAN4 LDX #CMNDT POINT TO TABLE 
COMAN5 CMPA O,X COMPARE FIRST 
BNE COMAN7 Pi 28 
CMPB 1,% COMPARE SECOND 
BNE COMAN7 
STAA CMFLG FOUND COMMAND 
LDX apd GET ADDRESS 
JSR @,X GO DO IT 
BRA FINCM FINISH COMMAND 
CGMAN7 INX BUMP POINTER 
INX 
INX 
INX 
CPX #TBLEND TABLE END? 
BNE COMAN5 =. 
PSH © A 
LDAA MACCNT TEST MACRO NUMBER 
CMPA #7 . 
PUL A 
BCC MACOVF OVERFLOW? 
LDX #MACTBL POINT TO MACROS 
COMAN8 CPX MACEND END? 
EEQ FINCM 
CMPA 0, X COMFARE FIRST 
BNE COMAN9 
CMPB 1,X COMPARE SECOND 
BEQ CALMAC 
CCMANS INX FIND NEXT ENTRY 


MAL/68090 1.2: 


LATE 


B9BC 
OSE 
G9BE 
BIBF 


6911 
0914 
G917 


O91A 
@S1C 
O91E 
G91F 
8921 
8923 
0925 
0928 
092B 
W92E 
0931 


6934 
6936 
BG3S 
09 3B 
H93C 
093E 
O93F 
0942 
&944 
0946 
6947 
IG 4N 
694D 
09 4F 
@951 
6953 
2955 
0957 
8959 


895C 
O95F 
6961 
0964 
0967 


TIME; 


CE181B 
BU1636 
7TEB209 


977E 

7EB8CE 
7FBGB64 
7TFOG5A 
7CO6B2 
7EB74C 


DF5C 
TEG3F8 


BD14BC 
6DO7 
BD16¢6 
BD14CE 
39 


G908D 
Page 23; 


* MACRO OVERFLOW ERROR 


MACOVF LDX 
JSR PSTRNG 
JMP MON 


* FINISH COMMAND 


FINCM LDAA IFFLG 
BEQ FINCM1 
CLR A 
STAA ENDLIN 
STAA CMFLG 
STAA IFEFLG 
JMP COMAN3 

FINCM1 CLR NOFL 
CLR CMFLG 
INC ENDLIN 
JMP GETCHR 

* CALL MACRO 

CALMAC STX XMAC 
LDX #ATEFLG 

CALMA2 LDAA @,X 
PSH A 
CLR G,X 
DEX 
CPX #INC 
BNE CALMA2 
LDAA CNTFLG 
ESH A 
CLR CNTFLG 
INC MACCNT 
 LDX XMAC 
LDAA #SF 
STAA MBFLG 
STAA ENDLIN 
LDX 2m 
STX ~~ MBFPNT 
JMP PROC 


* PRINT C.R. AND L.F. 


PCRLF JSR PUSHX 
BSR SCRLF 
JSR TSTBRK 
JSR PULL& 
RTS RETURN 


SSB 68@€ TEXT PROCESSOR 
Form 3 
INX 
INX 
INX 
BRA COMAN 8 


#OVESTR POINT TO STRING 


CUTPUT IT 


CHECK FOR IF 


CLEAR FLAGS 


GO LO COMMAND 
CLEAR FLAGS 


SET END LINE 
GO GET CHARACTER 


SAVE POINTER 
POINT TO VALUES 


_GET VALUE 


PUT ON STACK 
CLEAR IT 


FINISHED? 
SAVE CNT FLAG 
BUMP COUNTER 
RESTORE COUNT 
SET. FLAG 


GET ADDRESS 
SAVE AS POINTER 
GO PROCESS 


SAVE X 

DO CR AND LF 
BREAK? 
RESTORE X 


MAL/6808 1.2: 


DATE 


0968 
0Y¥6B 
696D 
G9 OF 
6971 


0974 


@975 
G977 
H979 
09 7B 
0970 
09 7F 
8982 
6984 
0986 
8989 
898C 
O98E 
H99G 
8993 
6995 
9997 
OS9A 
G9SC 
099F 
Q3A1 
CGA3 
G9A4 
W9A5 
0 9A6 
U9A9 
§ SAB 
w9AD 
UYAF 
G@SE1 
09B3 
€9PR6 
05B8 
G9IBA 
&9BD 
G9EF 
G9C1 
09C3 
€9C5 
09C7 
BICA 
G9CC 


G9CD | 


G9ICK 
G9DI 
w9D4 
V9D7 
09DSE 


TIME; 


CéE17E5 
Abbe 
8164 
2706 
BL1645 
b& 
ZOF 4 
966D 
2618 
9696 
2714 
TCHOG6E 
916E 
226D 
7F6W6E 
BDO206 
812 
2603 
7E6 269 
$685 
2643 
7C683D 
963D 
CE1AB7 
Al 
2724 
68 


E622 
BL&8D8 
7ABO61 
32 
G7B2 


8968 


24; Form 3 
lll: 
112: 
113: 
114: 
115: 
116: 
ye a 
118: 
119; 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
lZT: 
128: 
129: 
138: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
146: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149; 
15@: 
151: 
152: 
153: 
154: 
155: 
156: 
1573 
158: 
159: 
168: 
161: 
162: 
163: 
164: 
165: 


SCRLF 
SCRLF1 


SCRLF3 


SCRLF4 


SCRLF5 


SCRL55 


SCRLF7 
SCRL75 


SCRLF8 


LDX 
LDAA 
CMPA 
BEQ 
JSR 
INX 
BRA 
LDAA 
BNE 
LDAA 
BEQ 
INC 
CMPA 
BHI 
CLR 
JSR 
CMPA 
BNE 
JMP 
LUDAA 
BNE 
INC 
LDAA 
LDX 
CMPA 
BEQ 
INX 
INX 
INX 
CPX 
BNE 
CMPA 


SSB 6890 TEXT PROCESSOR 


* SPECIAL CARRIAGE RETURN 


LINE FEED 


#CRLFST POINT TO STRING 


O,X 

#4 
SCRLF3 
OUTCHR 
BUMP 
SCRLF1 
NOOUT 
SCRLF4 
TLPP 
SCRLF4 
TOUTL 
TOUTL 
SCRLF4 
TOUTL 
INCH 
#$D 
SCRLF4 
MON 
DIVFLG 
SCRLF9 
LINCNT 
LINCNT 
#TRAPS 
O,X 
SCRLF8 
GET 


#TRPEND 


SCRL55 
PGL 
SCRLF9 
NPGN 
SCRLF7 


ENDLIN 


CET CHARACTER 
IS IT 4? 


OUTPUT CHAR. 
FOINTER 


DO OUTPUT? 
LINES PER PAGE? 


BUMP LINE COUNT 
MAX? 

CLEAR COUNT 

WAIT FOR CHARACTER 
Is 1T C.R.? 


EXIT PROCESSOR 
DIVERTING? 


BUMP LINE COUNTER 


POINT TO TRAPS 
LINE = TRAP? 


TO NEXT 


END? 
BOTTOM OF PAGE? 


GET NEW PAGE NUM. 


SET PAGE NUMBER 
BUMP BY ONE 
SET UP 1 | 


SET LINE COUNT 
CHECK FLAG 


BUMP AT COUNT 
SAVE STATUS 
GET NAME 


GO PROCESS 
LEC COUNT 


RESTORE STATUS 


MAL/68@6 1.2: O9DB SSB 68006 TEXT PROCESSOR 
DATE TIME; Page 25; Form 3 


G9CDA 39 166: SCRLF9 RTS RETURN 

167: 

168: * BREAK FILLED PUFFER 

- 169: 

0©9DB S61 170: PERAK LDAA #1 SETUP i 
89LDD 913b 171: CMPA LINCNT ‘TEST LINE COUNT 
CIDP 27E9 172: EEC SCRLF5 

173: 

174: * FLUSH WORK BUFFER 

175: 
OGE1 9664 176: FLUSHB LDAA NOFL NO FLUSH? 
G@9E3 261F 177: BNE FLUSH5 
Q9E5 8620 178: FLUSH LDAA #$20 SET UP SPACE 
69E7 CECE 179: LDX BUFPNT SET FOINTER 
G9E9 8C18C3 1886: CPX #LINBUF BEGINNING OF BUFFER? 
QIEC 2716 181: BEQ FLUSH5 
®9EE DFID 182: STX STPOUT SET END 
Z9F@ Y9CD1 183: FLUSH2 CPX BUFEND END? 
B9F2 2705 184: BEQ FLUSH3 
G9F4 A700 185: STAA 0,X SAVE CHARACTER 
U9F6 68 186: INX BUMP POINTER 
69F7 20F7 187: BRA FLUSH2 
C9FS CE18C3 188: FLUSH3 LDX #LINBUF FOINT TO BUFFER 
G9FC 9768 189: STAA FLBF SET FLAG 
Q9FE BDO4F3 198: JSR ADJSPC ADJUST SPACE 
GAG1 TFOUG6R 191: CLR FLBF 
DAGB4 7FOH64 192: FLUSH5 CLR NOFL CLEAR FLAG 
GAG7 39 193: RTS RETURN 

194: 

195: * FINISH AND CLEAN UP 

196: ESE int 
~AG8 BDL7 197: FINISH BSR FLUSHB FLUSK BUFFER 
GABA CE1C51 198: LDX #TFCB POINT TO FCB 
fACD 8666 199; LDAA #6 SET FOR CLOSE 
OAOF A7O@ 200: STAA 0,X 
HAll BDI1O6OE4 261: JSR- DODFM CALL DFM 
OA14 7E@39A 202: JMP DPROC2 
GA17 7COBA8 203: FINIS4 INC SUPL 
GA1lA BD@B47 204: JSR PAGE GO PAGE 


WAlD 7E6209 205: -JMP- — -MON EXIT 


MAL/6866 1.2: 


BA20 


LATE TIME; Page 26; 


GA2G 
GA22 
GA24 
GA26 
GA28 
GA 2A 
BA2C 
GAZE 
DA38 
GA32 
DA34 
9A36 
HA38 
GA 3A 
ZA3C 
GA3E 
bA4O 
BA42 
QA44 
GA 46 
DA48 
WA 4A 
GA4C 
BA4E 
QA50 
BAd2 
GA54 
GA56 
GA58 
GA5A 
BA5C 
BASE 
VAGB 
bA62 
GAG 4 
GA66 
WA68 
GA6A 
GA6C 
GA6E 
QA7G 
GA72 
GA74 
JA76 
HA78 
BATA 
GA7C 
WATE 
GA8BD 
§A82 
VA84 
BA86 
GA88 


5359 
0B24 
5047 
WB47 
4053 
GB6B 
5353 
0B79 
4E4A 
6B7D 
4A55 
UBS1 
4448 
@CDA 
4457 
BCE6 
4442 
OCF 
4345 
BCFD 
4252 
G9DB 
2A20 
6B46 


(4649 


GD8B 
4646 
ob84 
5349 
8032 
5049 
GD4F 
504E 
@CCD 
4C4C 
®BAE 
494E 
8BBB 
4C4E 
@BD1 
4E53 
0C83 
5253 
GCU6 
594C 
WD1D 
4350 
§D46 
4B 43 
6D4B 
4B 4C 
QDB5 
5356 


l: 
2: 
3: 
4: 
Bie 
6: 


Form 4 


SSB 680@ TEXT 


* COMMAND TABLE 


CMNDT 


FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 


FDB- 


FCC 
FDB 
FCC 
FLB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 
FDB 
FCC 


'Sp! 
SPACE 
‘pc! 
PAGE 
‘ms! 
MULTS 
‘SS! 
SNGLS 
Ng * 
NOJST 
'Ju' 
JST 
'DH' 
BDUBH 
'pw' 
DUBW 
"DB! 
CUBB 
‘cr 
CENTER 
"BR! 
BRAK 
x 5 
SPACE6 
‘'FI' 
FILL 
"NES 
NOFILL 
‘Sr! 
SIND 
'PI { 
PTIND 
"PN! 
PGNUM 
"LM! 
LEFTM 
‘IN! 


~INDNT | 


"LN! 
LENTH 
'ns! 


_ NOSPC 


‘rs! _ 
RESPC 
‘py,! 
PAGEL 
'cp' 
STCAP 
‘nc! 
NOCAP 
'NL' 
NEDL 
'sy' 


PROCESSOR 


MAL/6866 1.2: 


DATE 


VASA 
QA8C 
BA8E 
BAGEL 
BA92 
BA94 
WA96 
GAI8 
GAGA 
BAGC 
DAIE 
DAAG 
VAAZ 
BAA4 
GAA6 
HAAS 
BAAA 
MAAC 
WAAE 
BABU 
GAB2 
BAB4 
BAB6 
GAB8 
GABA 
BABC 
GABE 
GACG 
BAC2 
BAC4 
wAC6 
ZAC8 
BACA 
BACC 
WACE 
GAD 
SAD2 
WADA 
JAD6 
BAL8 
VADA 
ZADC 
BADE 
BAEO 
QAE2 
QAEA 
QAE6 
WAES& 
WAEA 
JAEC 
BARE 
BAFG 
OAF2 
GAF4 
GAF6 


G@A8C 
TIME; Page 27; 
ODFC 563 
4F53 57: 
GELS 58: 
4154 59: 
OE21 60: 
444) 61: 
QE6D 62: 
414D 63: 
GEAB 04: 
524D 65: 
GEB4 66: 
4449 67: 
WEF 4 68: 
444] 69: 
OF13 7@; 
5354 71s 
OD IE 2s 
544C 73: 
1896 74: 
4054 715% 
1983 76:3 
4348 77: 
l1E1l 78: 
4946 79:3 
1174 8Q: 
4E52 81: 
1234 82: 
4152 83: 
1253 84; 
5352 85: 
125.3 86: 
4352 87: 
125C 88: 
4155 89: 
1266 99; 
5443 91: 
OCOA 92: 
5446 93: 
@C15 94; 
544] 95: 
6C21 96: 
4558 97: 
GAGS 98: 
544D 99: 
OC 4G 190: 
4749 101: 
8C55 1@2: 
4556 163: 
6C63 104: 
5250 105: 
D92 166: 
5853 107: 
@B1D 198: 
554c 199 
14E3 116: 


Form 4 


SSB 6806 TEXT PROCESSOR 


SAVS 
‘os! 
OUTSV 
‘AT! 
ATL 
"pM! 
DEFMAC 
"AM! 
APMAC 
"RM' 
REMMAC . 
‘pr 
DIVERT 
‘DA! 
DIVAPP 
's7! 
STOP 

td be Wg 
TITLE 
‘LT! 
TLEN 
'CH' 
CHNG 
‘TF! 
IF 
NR! 
NREG 
‘AR! 
ARB 
'SR! 
SROM 
‘CR! 
CROM 
‘AU! 
SAUTO 
imc 
TABCH 
ppt 
TABFIL 


“pat 


STAB 
"EX! 
FINISH 
us Wy 
TERM 
'GI' 
GETIN 
‘RV! 
SENV 
‘Rp! 
RPT 
‘ps! 
FASS 
'OL' 
UNDL 


MAL/680@ 1.2: @AFA SSB 6808 TEXT PROCESSOR 
DATE TIME; Page 28; Form 4 


MAF8 5249 LiVs FCC 'RI' 
AFA 14E8 112: FDB RDIT 
OAFC 4943 113: FEC ‘IC ' 
GAFE 15605 114: FDB ITMCH 
BBYB 4E49 115: FCC 'NI' 
OBEZ 1512 116: FDB NXTI 
WBG4 4642 117: FCC "NB! 
OBM6 1538 118: FDB NXTB 
OBG8 4346 119": FCC ‘Cr 
OBHA 1563 1208: FDE CLSFL 
OBBC 446 121: FCC ‘OF! 
OBE 1575 122: FDB OPNF 
9B12 2626 123: FCC a 
B12 8B46 124: FDB SPACE6 
B14 2620 125% FCC toe 
fB16 YB46 126: FDB SPACE6 
6B18 2826 127: FCC nM 
OB1A 3B46 128: FDB SPACE6 


BOB1C HG 129: TBLEND FCB U 


MAL/68@66 1.2: 


@B1D 


DATE TIME; Page 29; 


OB1D 
9B20 
GB23 


6B24 
WB27 
6B29 
bB2E 
QB2E 
2B39 
BB32 
¥B35 
6B38 
OB3A 
QB3C 
OB3E 
OB3F 
€B42 
b6B43 
6B44 
0B46 


6B47 
HBAA 
OB4C 
OB4E 
QB51 
YB53 
@B55 
®B57 
9B59 
8B5B 
QB5D 
GB5E 
BBO 
0B63 
6B66 
UB68 
OBOA 


0B6B 
UBO6E 
0B70 
GB72 
0B74 
0B76 


7F 9 6BB 
7CBO86 
39 


BDO9EL 
9668 
261B 
BD12E9 
9665 
2603 
700065 
BD@DC4 
9165 
2502 
9665 
36 
BD@95C 
32 

4A 
26F8 
39. 


BD12E9 
2467 
9669 
BD12D8 
2008B 
9668 
2613 
9653 
2603 
9669 
4C 
9753 
BDO9IEI 
BD@95C 
9653 
26F9 
39 


BD12E9 
2464 
9665 
2802 
8662 
97C5 


Form 5 


SSB 6808 TEXT PROCESSOR 


* PASS FILE ROUTINE 


PASS 


* SPACE ROUTINE .SP N 


SPACE 


SPACE2 


SPACE4 


SPACE6 
* PAGE 


PAGE 


PAGE2 


PAGE4 


PAGES5 


PAGE6 


* MULTIPLE SPACE ROUTINE 


CLR 
INC 
RTS 


JSR 
LDAA 
BNE 
JSR 
LDAA 
BNE 
INC 
JSR 
CMPA 
BCS 
LDAA 
PSH 
JSR 
PUL 
DEC 
BNE 
RTS 


ROUTINE .PG +N 


RTS 


MULTS JSR 
BCC 
LDAA 
BRA 

MULTS2 LDAA 
STAA 


MULTS3 


FILFLG 
PASFLG 


FLUSHE 
NSP 
SPACE6 
CHKNUM 
INNUM 
SPACE2 
IKNUM 
FNTR 
INNOM 
SPACE4 
INNUM 
A 
PCRLF 
A 

A 
SPACE4 
RETURN 


CHKNUM 


PAGE 2 
PGN 
FIXVAL 
PAGE4 
NSP 
PAGE6 
NPGN 
PAGE 4 
PGN 


A 


NPGN 
FLUSHB 
PCRLF 
NPGN 
PAGES 
RETURN 


CHKNUM 
MULTS2 
INNUM 
MULTS3 
#2 

MSC 


»PS 


FIX FLAGS 


FLUSH BUFFER 
NO SPACE? 


CHECK FOR NUMBER 
GET NUMBER 


INC BY ONE 

FIND TRAP 

EQUAL? 

GET NUMBER 
OUTPUT CR AND LF 


CEC COUNT 


CHECK FOR NUMBER 


GET PAGE NUMBER 
FIX VALUE 


NO SPACE? 
GET NEW PAGE NUM. 


BUMP BY ONE 

SAVE AS NEW 
FLUSH BUFFER 
OUTPUT CR & LF 
GET NEW PAGE NUM. 


MS +N 
CHECK FOR NUMBER 
GET NUMBER 


DEFAULT IS 2 
SET COUNT 


SSB 6806 TEXT PROCESSOR 


MAL/G6G80@0 1.2: @B79 
DATE ‘TIME; Page 38; Form 5 
8R7E 39 56: RTS 
57: 
58: * SINGLE SPACE ROUTINE .SS 
59:3 
0879 7FOGBCS 68: SNGLS CLR MSC CLEAR COUNT 
GB7C 39 61: RTS 
623 
63: * NO ADJUST ROUTINE .NJ 
64: 
O870L 7F@BC9 65: NOJST CLR JUST CLEAR JUST *LAG 
G8BEO 39 663 RTS 
. 67: 
ae * SET JUSTIFICATION ROUTINE .JU C 
69: 
0B81 97C9 78: JST STAA JUST SET FLAG 
0883 BD12A7 71: JSR LDNSKP GET NEXT CHAR. 
6B86 BD12B5 723 JSR CLSFY CLASSIFY IT 
B89 C162 73: CMPB #2 
HB8B 2689 74: BNE JST15 
YBS8D 814E 753 CMPA #'N NORMAL? 
OB8F 2686 763 BNE JST2 
JB9]1 4F 77: JSTl CLR A ADJUST FLAGS 
B92 97C1 78: STAA CNJ 
§B94 97C3 79:3 STAA RTJ 
8B96 39 8@: JST15 kTS RETURN 
6B97 8152 81: JSTZ CMPA #'R RIGHT HAND? 
2B99 2696 82: BNE JST3 
§B9B 7FE6CL 83: CLR CNJ FIX FLAGS 
6BIYE 937C3 84: STAA RTJ 
@BAb 39 853 RTS 
VBA] 6143 86: JST3 CMPA #'C CENTERED? 
GBA3 26EC 87: BNE JST1 
CBA5 7F8BC3 88: CLR RTJ FIX FLAGS 
@BAS 97C1 89:3 STAA CNJ 
BBAA 39 96: RTS RETURN 
91: 
92: * SET LEFT MARGIN .LM +N 
93: 
OBAB BE12E9 94: LEFTM JSR CHKNUM CHECK FOR NUMBER 
@BAE 240A 95: ~~ BCC ~LEFITM2 
OBB@ 963E 96: ~“LDAA LFM GET MARGIN 
QBB2 BD12D8 97: JSR FIXVAL FIX VALUE 
GBB5 2A@1 98: BPL ~LEFTM1 / ; 
@BB7 AF 99; CLR A 
OBB8 973E 106: LEFTM1] STAA  -LFM SET NEW VALUE 
BBA 39 1@1: LEFTM2 RTS RETURN 
102: 
193: * SET INDENT .IN +N 
104: 
BBB BDGéSEIL 185: INDNT JSR FLUSHB FLUSH BUFFER 
UBBE BD12E9 106: JSR CHKNUM CHECK FOR NUMBER 
Q@BCl 24F7 107: BCC LEFTM2 
6BC3 9638 188: LDAA IND GET INDENT 
88C5 BDIL2LD8 109: JSR FIXVAL FIX VALUE 
OBBCE& 2A01 116: BPL INDNT2 


MAL/68086 1.2: 


DATE 


WBCA 
UBCB 
OBCD 
SBCF 


TIME; 


4F 

9036 
97A6 
2014 


BD12E9 
2419 
963B 
BD12D6 
81ZE 
2262 
860F 
993B 
97A7 
DECD 
8C18C 3 
2663 
7E15A5 
oo 


D632 
DE74 
E168 
2405 
96B4 
7E@7CD 
7FQO676 
7E@74C 


9768 
39 


7F 6068 
39 


BD12A7 
816D 
2661 
4F 
97B3 
39 


BD12A7 


QBCB 


Page 31; 


lll: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
128: 
121: 
122: 
123: 
124: 
EZ5* 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
L373 
138: 
139: 
148: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149; 
156: 
151: 
152: 
153: 
154; 
155% 
156: 
157: 
toes 
159: 
166: 
161: 
162: 
163: 
164: 
165: 


Form 5 


INDNT2 


* SET LENGTH OF LINE 


LENTH 


LENTH2 


LENT25 


LENTH5 


CLR 
SUB 
STAA 
BRA 


JSR 
BCC 
LDAA 
JSR 
CMPA 
BHI 
LDAA 
SUB 
STAA 
LDX 
CPX 
BNE 
JMP 
RTS 


SSB 6800 TEXT PROCESSOR 


A 

A ING SET INDENT 
TIND SAVE AS TEMP 
LENT25 


~LN +N 


CHKNUM CHECK FOR NUMBER 
LENTHS 

LLN CET LENGTH 
FIXVAL FIX VALUE © 

#14 14 OR LESS? 
LENTH2 

#15 FORCE TO 15 


A LLN SET NEW 


TLLN SAVE AS TEMP 
BUFPNT CHECK POINTER 
#LINBUF 

LENTH5 

FIXWL GO FIX WIDTH 
RETURN 


* DO NECESSARY TABBING 


DOTAB 


COTAB2 


LDAB 
LDX 
CMPB 
BCC 
LDAA 
JMP 


CLR . 


JMP 


COLCNT GET COUNT 

NXTTAB POINT TO TAB 

@,X COMPARE 

DOTAB2 

TFILL GET FILL CHAR. 
FETCH3 

TABFLG CLEAR FLAG 
GETCHR BACK TO GET CHAR. 


* SET NO SPACE .NS 


NOSPC 


* RESTORE SPACE MODE 


RESPC 


STAA 
RTS 


CLR 
RTS 


NSP SET FLAG 
~RS 
NSP CLEAR FLAG 


* DEFINE TAB CHARACTER .TC C 


TABCH 


TABCH2 


* DEFINE TAB FILL CHARACTER 


JSR 


CMPA 
BNE 
CLR 
STAA 
RTS 


TABFIL JSR 


LDNSKP GET TO NEXT CHAR. 
#$D IS IT A C.R.? 
TABCH2 . 

A CLEAR VALUE 

TAB SAVE TAB CHAR. 
RETURN 


TF C 


LDNSKP GET TO NEXT CHAR. 


MAL/680@ 1.2: 


DATE 


0C18 
CCIA 
8C1C 
Q@C1E 
OC 20 


gC21 
GC24 
8C27 
OC 2A 
®C2C 
UC 2F 
0C31 
C33 
8C34 
8C37 
0C39 
OC 3A 
9C3D 
OC 3F 


NC46 
bC 43 
0C45 
eC 47 
OC49 
OC 4A 
@C4C 
OC 4E 
O0C56 
WC52 


6C55 
0C57 
BC5A 
GC 5D 
0COG 
8C62 


6C63 
0C66 
0CO68 
OC 6A 
GCC 
OCGE 
6C76 
oC71l 


OC1A 


TIME; Page 32; 


818D 
2602 
56A8 
97B4 
39 


CE#11B 
BD14BC 
BD12E9 
24GE 
BDB14CE 
9665 
A706 
G& 

8C 0124 
26EB 
39 
BD14CE 
6F BOD 
39 


BD12A7 
A606 
814D 
2703 
Re) 
20F7 
8604 
A700 
DED9 
7E1636 


8DE9 
CE1864 
BD1638 
BD15D5 
9793 
39 


BD12E9 
2468 
9665 
2705 
8601 
2661 
4F 
9172 


166: 
167: 
168: 
169: 
17@: 
171: 
172: 
173: 
174: 
175: 
176: 
177: 
178: 
179: 
188: 
181: 
182: 
183: 
184: 
185; 
186: 
187: 
188: 
189: 
196: 
191: 
192: 
193: 
1943 


SSB 6860 


#TABEND END OF 


Is If C.R.? 


SET UNPAD SPACE 
SAVE CHAR. 


-TA 1 23 4 


POINT TO TABS 
SAVE X 
CHECK FOR NUMBER 


RESTORE 

GET NUMBER 
SAVE IT 
POINTER 
TABLE? 


CLEAR LAST 


.TM STRING 
GET TO NEXT CHAR. 
GET CHAR. 

IS IT C.R.? 

THE POINTER 

SET UP 4 

SAVE IT 

SET POINTER 

GO PRINT STRING 
~GI PROMPT 
GO PRINT PROMPT 
POINT TO STR. 
OUTPUT IT 


GET INPUT. RESPONSE 
SET FLAG — 


CHECK FOR NUMBER 
GET NUMBER 
SET UP 1 


CLEAR VALUE 


Form 5 
CMPA #SD 
BNE TABFI2 
LDAA #SAG 
TABFI2 STAA TFILL 
RTS RETURN 
* DEFINE TAB COLUMNS 
STAB LDX #TABS 
STAB2 JSR PUSHX 
JSR CHKNUM 
BCC STAB4 
JSR PULLX 
LDAA INNUM 
STAA O,X 
INX BUMP 
CPX 
BNE STAB2 
RTS RETURN 
STAB4 JSR PULLX 
CLR O,X 
RTS 
* OUTPUT STRING TO TERMINAL 
TERM JSR LDNSKP 
TERM2 LDAA O,X 
CMPA #SD 
BEQ TERM4 
INX BUMP 
BRA TERM2 
TERM4 LDAA #4 
STAA O,X 
LDX CMNPNT 
JMP PSTRNG 
* GET INPUT FROM TERMINAL 
GETIN BSR TERM. 
LDX #QUSTR 
JSR PDATA 
JSR GIBUF 
STAA SBFLG 
RTS. RETURN 
* SET NEW ENVIRONMENT .EV N 
SENV JSR CHKNUM 
BCC SENV1] 
LDAA INNUM 
BEQ SENV2 
LDAA #1 
BRA SENV2 
SENV1 CLR A 
SENV2 CMPA EV 


PRESENT EV? 


TEXT PROCESSOR 


MAL/686@ 1.2: 


DATE 


§C73 
YC75 
6C76 
NC78 
6C7A 
OC 7C 
OC7E 
bCEB 
0C8B2 
WC84 
GC&6 
OC 8S 
8C8A 
WC 8C 
OC8E 
GCOB 
GC93 
6C95 
wC97 
GCOS 
QCSB 
GC IC 
ZC9D 
OCAG 
OCA2 
6CA4 
@CA6 
WCA8 
OCAA 
GCAC 
OCAE 
6CBO 
UCB2 
OCB3 
0CB4 
SCB5 
6CB6 
OCBY9 
OCBB 
OCBE 
9CC# 
6CC2 
0cC4 
BCC6 
GCC? 
OCCA 
OCCC 


®CCD 
BCD 
GCD2 
OCD4 
QCD? 


TIME; 


2601 
39 
9772 
9632 
D677 
B732 
9777 
9638 
D678 
9778 
D738 
96 3B 
D694 
9794 
D73B 
CE@@B5 
A6 BE 
E601 
A761 
E700 
08 

G8 
8CB2CD 
26F 1 
A606 
E662 
A7@2 
E708 
A661 
E663 
A763 
E701 
08 

08 

08 

0& 
8COGD9 
26E7 
CE18C3 


BD12E9 
2467 
9669 
BD12D8 
9769 


8C75 
Page 33; Form 5 


221: 
222: 
223: 
224: 
225: 
226: 
227: 
228: 
229: 
230: 
231: 
232: 
233: 
234: 
235: 
236: 
237: 
238: 
239: 
246: 
241: 
242: 
243: 
244: 
2453 
246: 
247: 
248: 
249: 
256: 
251: 
Zon 
253% 
254: 
2553 
2563 
257: 
258: 
259: 
266: 
261: 
262: 
263: 
264: 
2653 
266: 
267: 
268: 
269: 
276: 
271: 
272: 
273: 
z74: 
2753 


SENV3 


SENV4 


SENV6 


PGNUM 


SENV8 


BNE 
RTS 
STAA 
LLAA 
LDAB 
STAB 
STAA 
LDAA 
LDAB 
STAA 
STAB 
LDAA 
LDAB 
STAA 
STAB 
LDX 
LDAA 
LDAB 
STAA 
STAB 
INX 
INX 
CPX 
BNE 
LDAA 
LDAB 
STAA 
STAB 
LDAA 
LDAB 
STAA 
STAB 
INX 
INX 
INX 
INX 
CPX 
BNE 
LDX 


LDAA ~~ 


LDAB 
STAA 
STAB 
INX 


CPX. 


BNE 
RTS 


SSB 6808 TEXT PROCESSOR 


SENV3 
YES, 
EV 
COLCNT 
COLCN2 
COLCNT 
COLCN2 
IND 
IND2 
IND2 
IND 


#BUF ENT 
SENV4 


w PWWHEN NHS 
= DSO OS OS OK DE OK OO 


w 


#CMNPNT 
SENV6 
#LINBUF 


__#LINBU2 


SENV8 
RETURN 


* SET NEW PAGE NUMBER 


CHKNUM 
PGNUM4 
PGN 
FIAVAL 
PGN 


RETURN 
SET NEW EV 
SAVE COL COUNT 


FIX THE INDENT 


DO LINE LENGTH 


POINT TO BLOCK 
GET VALUE 


SWAP VALUE 
TO NEXT 
FINISHED? 
GET VALUE 


SWAP 


THE POINTER 


FINISHED? 


FOINT TO BUFFER 
GET A CHAR. 


SWAP FOR NEW 


TO NEXT 
FINISHED? 


~PN +N 
CHECK FOR NUMBER 
GET VALUE 


GO FIX VALUE 
SAVE NEW 


MAL/680@ 1.2: 


OCDA 


DATE TIME; Page 34; 


@CD9 


OCCA 
§CDL 
GCEG 
OCE 3 


WCE6 
OCES 
BCEC 
OCEE 


OCF 
HCE 3 
OCF6 
OCFS 
BCFE 


OCFD 
ODAE 
6DO3 
G@DE5 
Q8DO7 
ODGA 
QDBC 
ODE 
OD16 
G@D12 
OD14 
6D16 
@D18 
ODI1A 
€D1iCc 


Ub1o 
OD2b 
OD22 
WD24 
6D26 
Q@LD28 
0D2B 
@D2C 
OD2E 
OD2F 
8b31 


39 


PDOIES5 
B6B21C 
70 603E 
7E1645 


BDOIES5 
B6OO21D 
9782 
2 OF 3 


BD@9E5 
Bo@21D 
9782 
BB1645 
20E0 


BD@9E1 
BD12E9 
Z240B 
96C7 
BD12D8 
97C7 
2723 
2694 
8601 
97C7 
96BB 
9763 
86FF 
97EB 
39 


BD12E9 
2584 
8642 
2669 
963F 
BD12D8 
4D 
2601 
4C 
973F 
39 


276: 
277% 
278: 
2793 
280: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
296: 
291: 
292: 
293: 
294: 
295: 
296: 
297: 
298: 
299: 
300: 
301: 
302: 
303: 
304: 
365: 
366: 
307: 
308: 
309: 
310: 
311: 
312: 
313: 
314: 
315: 
316: 
317: 
318: 
319: 
320: 
321: 
322: 
323: 
324: 
3253 
3263 
327: 
328: 
329: 
330: 


Form 5 


PGNUM4 


RTS 


SSB 6888 TEXT PROCESSOR 


* SET DOUBLE HEIGHT 


DUBH 
DUBH1 


DUBH2 


* SET COUBLE WIDTH 


DUBW 


* SET DOUBLE BOTH 


DUBB 


JSR 
LDAA 
INC 
JMP 


JSR 
LDAA 
STAA 
BRA 


JSR 
LDAA 
STAA 
JSR 
BRA 


* CENTER N 


CENTER JSR 


CENTE2 


CENTE4 


* SET PAGE LENGTH 


PAGEL 


PAGEL1 


PAGEL2 
PAGEL4 


JSR 
BCC 
LDAA 
JSR 
STAA 
BEQ 
BRA 
LDAA 
STAA 
LDAA 
STAA 
LDAA 


STAA 


RTS 


ISR 


BCS 
LDAA 
BRA 
LDAA 
JSR 
TST 
BNE 
INC 
STAA 
RTS 


LINES 


RETURN 
CH 
FLUSH FLUSH BUFFER 
DHCHAR SET UP H/W CONTROL CODE 
LINCNT BUMP LINE COUNT 
OUTCHR OUTPUT CHARACTER 
- DW 
FLUSH FLUSH BUFFER 
DWCHAR SET UP H/W CONTROL CODE 
DWFLG SET FLAG 
DUBH 2 
~ DB 
FLUSH FLUSH BUFFER 
DWCHAR SET UP H/W CONTROL CODE 
DWF LG SET FLAG 
OUTCHR GUTPUT CHARACTER 
DUBH1 
~CE +N 
FLUSHB FLUSH BUFFER 
CHKNUM CHECK FOR NUMBER 
CENTE2 
CNTFLG GET OLD COUNT 
FIXVAL FIX VALUE 
CNTFLG SAVE NEW 
PAGEL4 
CENTE4 
#1 DEFAULT TO 1 
CNIFLG SAVE COUNT 
FILFLG GET FLAG 
TFILF SAVE AS TEMP 
#SFF 
‘FILFLG FORCE FILL MODE 
RETURN 
-PL +N 
CHKNUM CHECK FOR NUMBER 
PAGEL] © 
#66 DEFAULT TO 66 
PAGEL2 
PGL GET LAST VALUE 
FIXVAL ‘FIX VALUE 
A 
PAGEL2 
A BUMP BY ONE 
PGL SAVE NEW 
RETURN 


MAL/6800 1.2: @D32 
DATE TIME; Page 35; Form 5 


8D32 
@D35 
0D38 
9D3A 
8D3C 
OD3F 
6D41 
9D43 


0D46 
0D48 
OD4A 


@D4B 
ODAE 


@D4F 
@D52 
@D55 
BD57 
®D59 
QD5B 
@D5C 
8D5D 
9D6G 
8D61 
9D63 
@D65 
8D66 
@D69 
OD6A 
QD6B 
8D6D 
OD6F 
6D71 
8D73 
6D74 
@D77 
0D78 
6D79 
9D7B 
OD7D 
OD7E 
OD8B 
8D83 


BDO9E1 
BD12E9 
24F7 
9670 
BD12D8 
98786 
97A5 
7E ®BES5 


860F 
976C 
39 


7F 886C 
39 


37 
BD1645 
33 

5C 
D138 
240E 
20EB 
8628 
37 
BD1645 
33 

SC 
D138 
25F4 
5C 
D/76F 
7F @B5E 
39 


331% 
332: 
333: 
334: 
335% 
336: 
337: 
338: 
3393 
349: 
341: 
342: 
343: 
344: 
3453 
3463 
347: 
3483 
349: 
350: 
351: 
3523 
353: 
354: 
3553 
356: 
357: 
358: 
359: 
368: 
361: 
362: 
363: 
3643 
365: 
366: 
3673 
368: 
369: 
376: 
371: 
372: 
3733 
374: 
3753 
376: 
377: 
378: 
379: 
380: 
381: 
382: 
383: 
384: 
385: 


SSB 6888 TEXT PROCESSOR 


* SET SINGLE INDENT .SI +N 


FLUSHB 


SIND JSR 
JSR CHKNUM 
BCC PAGEL4 
LDAA SIN 
JSR FIXVAL 
SUB A 
STAA TSIN 
JMP LENT 25 
* SET CAPS MODE .CP 
STCAP LDAA #5F 
STAA DOCAP 
RTS 
* CLEAR CAPS MODE .NC 
NOCAP CLR DOCAP 
RTS 


* PUT IN INDENT FIELD 


PTIND . JSR FLUSHB 
JSR LDNSKP 
LDAB IND 
BEQ PTINDS 
STAB NOCR > 
CLR B 
PTIND2 PSH B 
JSR GETCHR 
PUL B 
CMPA #S$D 
BEQ PTIND3 
PSH B 
JSR OUTCHR 
PUL” B 
INC B 
CMPB IND 
BCC PTIND4 
BRA PTIND2 
PTIND3 LDAA #$26 
PSH B 
JSR OUTCHR 
PUL B 
INC B 
CMPB- IND 
BCS PTIND3 
PTIND4 INC B 
STAB PTFL 
CLR NOCR 
PTIND5 RTS RETURN 


FLUSH BUFFER 
CHECK FOR NUMBER 


GET OLD VALUE 
GO FIX VALUE 


SIN 
SAVE AS TEMP 


SET FLAG 


CLEAR FLAG 


ePI STRING 

FLUSH BUFFER 

GET TO NEXT CHAR. 
GET INDENT 


SET FLAG 


GO GET CHAR. 
CHECK IF C.R.? 


‘GO OUTPUT CHAR. 


BUMP COUNT 


‘FINISHED? 


SET UP SPACE 
OUTPUT IT 


BUMP COUNT 
FINISHED? 


BUMP COUNT 
SET FLAG 


MAL/0606 1.2: 


DATE TIME; 


4084 
YD87 
UD8A 


UDGEE 
’D8E 
UD9L 


UD92 
@b95 
“DOE 


iD 9B- 


BLO9EL] 
7¢ 6 @BB 
39 


BDOSEI 
7CG66BE 
39 


BD@9E1 
7C 6 6A8 
BDOB47 
TEL6FC 


6D84 
Fage 36; 


Form 5 
386: * SET NOFILL MODE .NF 
387: 
388: NOFILL JSR FLUSHB 
389: CLR FILFLG 
3990: RTS © 
391: 
392: * SET FILL MODE .FI 
393: 
394: FILL JSR FLUSHB 
395: INC FILFLG 
396: RTS 
397: 
398: * REPEAT COMMAND .RP 
399: 
400: RPT JSR FLUSHB 
461: INC SUPL 
402: JSR PAGE 
403: JMP RWND 


SSB 6888 TEXT PROCE 


FLUSH BUFFER 
CLEAR FLAG 


FLUSH BUFFER 
SET FLAG 


FLUSH BUFFER 
SET FLAG 

GO PAGE 
REWIND FILE 


SSOR 


MAL/686@ 1.2: 


DATE 


bBYE 
BLA 1 
ODA4 
O@DA7 
ODAA 
GDAC 
GDAE 
8DB1 
QDB4 


QDB5 
ODB8 
ODBA 
8DBD 
ODBF 
ODC1 
VDC3 


@bCc4 
gDC6 
GDC8 
QDCB 
GBCD 
GDCF 
GDDI 
uDD3 
ODL5 
O@DD7 
ODD8 
uDDA 
@DDC 
ODDE 
ODEO 
ODE1 
GDE2 
ODE3 
ODE6 
GDE8 
G@DEA 
@DEC 
O@DEE 
ODEO 
ODF 2 
ODF 3 
ODA 
ODF5 
QDF7 
ODF9 
ODFB 


TIME; 


BDO9E] 
CE17FA 
BD1636 
BDO206 
8153 
2606 
BD@235 
7E®A17 
39 


BD12E9 
2503 
7CW965 
8DB5 
9165 
254A 
39 


86FF 
9771 
CE1AB7 
D63D 
E166 
240F 
Ab 86 
S1FF 
2711 
18 
9171 
2404 
9771 
DF7/9 
08 
08 
08 
8C 1AE7 
26E3 
D671 
C1FF 
2607 
963F 
903D 
AC 
SF 
39 
E600 
9671 
DE7S 
39 


OD9E 
Page 37; Form 6 


a 
Z: 
3: 
4: 


SSE 6866 TEXT PROCESSOR 


* STOP COMMAND .ST 


STOP 


STOP] 


STOPZ 
* NEED 


NEDL 


NEDL1 


* FIND 


FNTR 


FNTR2 


FNTR4 


FNTR5 


FNTR6 


JSR 
LDX 
JSR 
JSR 
CMPA 
BNE 
JSR 
JMP 
RTS 


FLUSHB 


#STPSTR 


PSTRNG 
INCH 
#'S 
STOP2 
CDFM 
FINIS4 
RETURN 


N LINES .NL N 


JSR CHKNUM 
BCS NEDLI1 
INC INNUM 
BSR FNTR 
CMPA INNUM 
BCS SAVSZ5 
RTS 

THE NEXT TRAP 
LDAA #SFF 
STAA MINDIS 
LDX #T RAPS 
LDAB LINCNT 
CMPB 6,X 
BCC FNTR4 
LDAA 6,X 
CMPA #SFF 
BEQ FNTR5 
SBA SWAP 
CMPA MINDIS 
BCC FNTR4 
STAA MINDIS 
STX | _NXTTRP 
INX BUMP 
INX 

INX 

CPX #TRPEND 
“BNE FNTR2 
LDAB -MINDIS 
CMPB #SFF 
BNE FNTR6 
LDAA PGL 
SUB A 

INC A 

CLR B 

RTS RETURN 
LDAB 0,X 
LDAA MINDIS 
LDX NXTTRP 
RTS RETURN 


FLUSH BUFFER 
POINT TO STRING 
OUTPUT IT 

GO GET CHAR. 

Is If 'S'? 


CLOSE FILES 
GO FINISH 


CHECK FOR NUMEER 
BUMP BY 1 

GO FIND ‘TRAP 
COMPARE 


SET MIN DISTANCE 


POINT TO TRAPS 
GET COUNT 
CHECK LOC. 


GET DISTANCE 
REGISTERS 

MIN DISTANCE? 
SAVE NEW 


SAVE POINTER 
THE POINTER 


FINISHED? 
GET DISTANCE 
SET UP PAGE LEN. 


LINCNT 
FIX VALUE 


GET DISTANCE 
POINT TO TRAP 


MAL/6800 1.2: @DFC SSB 6888 TEXT PROCESSOR 
DATE TIME; Page 38; Form 6 
56: 
57: * SAVE SPACE ROUTINE .SV N 
56: 
ODFC 7F887B 59: SAVS CLR SVDSPC CLEAR COUNT 
OGFF BD12E9 60: JSR CHKNUM CHECK FOR NUMBER 
GEG2 2563 61: » BCS SAVS1 
G04 700865 62: INC INNUM GET COUNT 
8E07 8DBB 63: SAVS1 BSR FNTR FIND TRAP 
GES 9165 64:3 CMPA INNUM 
BEOB 2506 65: BCS SAVS 4 
BE@D 7FRG68 66: SAVS25 CLR NSP CLEAR NO SPACE 
GE1@ 7E®B3E 67: JMP SPACE4 GO DO SPACE 
@E13 9665 68: SAVS4 LDAA INNUM GET COUNT 
@E15 977B 69: STAA SVDSPC SAVE COUNT 
BE17 39 76: SAVS5 RTS RETURN 
71s: 
72: * OUTPUT SAVED SPACE .OS 
133 
E18 967B 74: OUTSV LDAA SVDSPC GET EUMEMBERED COUNT 
GE1A 27FB 753 BEQ SAVS5 
BE1C 7F687B 76: CLR SVDSPC CLEAR COUNT 
GE1F 2BEC 77: BRA SAVS25 OUTPUT SPACE 
78: 
79: * AT LINE N ROUTINE .AT -N 
80: 
GE21 BD12E9 81: ATL JSR CHKNUM CHECK FOR NUMBER 
GE24 2428 82: BCC ATL35 
@E26 BD11D5 83: JSR TSTNEG IS IT NEGATIVE? 
E29 BD1059 84; JSR GTNAM GET NAME 
GE2C 963F 85: LDAA PGL GET PAGE LEN. 
@E2E 4C 86: INC A a 
VE2F BD12D& 87: JSR FIXVAL FIX THE VALUE 
WE32 4D 88: TST A 
GE33 2601 89; BNE ATL1 
935 4C 90: INC A BUMP BY ONE 
HE36 CE1AB7 91: ATLI LDX #TRAPS POINT TO TRAPS 
WE39 A1@® 92: ATL2 CMPA O,X COMPARE 
GE3B 2712 93: BEQ ATL4 
@E3D 8D27 94: BSR INTRP 
@E3F 26F8 95: BNE  ATL2- 
QE41 CEI1AB7 96: LDX #TRAPS POINT TO TRAPS 
VE44 COFF 97: LDAB #SFF SET REFERENCE 
GE46 E1OG6 98: ATL3 CMPB- G,X = 
E48 2714 99: BEQ ATL5 
GE4A @DI1A 19@: BSR INTRP 
®E4C 26F8 1@1: BNE ATL3 
WE4E 39 162: ATL35 kTS RETURN 
GE4F D695 103: ATL4 LDAB MACNAM GET NAME 
GE51 2604 104: BNE ATL45 
OE53 SA 165: DEC B DEC THE COUNT 
GE54 E766 166: STAB 0,X SAVE POSITION 
WE56 39 107: RTS RETURN 
OE57 9696 188: ATL45 LDAA MACNAM+1 GET NAME 
E59 E781 189: STAB 1,X SAVE CHAR. 
QE5B A782 118: STAA 2,X 


MAL/6866 1.2: 


DATE 


BE5D 
QE5E 
DEGE 
BE62 
BE64 


QVE66 
GE67 
9E68 
GE69 
QE6C 


QE6D 
OE OF 
bE7I1 
GE74 
0E76 
QE79 
BE7TC 
OE 7F 
ZEEL 
GE83 
GE86 
GE88 
QE8A 
OE 8B 
GE8D 
GEIB 
BES] 
GE94 
OE96 
QE98 
BE9SB 
BE9D 
GO EAL 
OEA3 
GEA5 
GEA7 
GEAA 


WEAR 
BEAD 
UEAF 
GEBZ 


GEB4 
GEB/ 


TIME; 


Bie, 

D695 
27EC 
A766 
20F 1 


08 
68 
aRs) 
8C1AE7 
39 


965B 
2639 
BDGFIE 
2734 
706083 
7TFOO5A 
BD@749 


7F 0883 
39 


965B 
26FB 
BDOF51 
20CG 


BD1@59 
BD1@04 


GE5E 
Page 39; 


lil: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
129: 
i2l: 
122: 
123: 


Form 6 


ATL5 


RTS 
LDAB 
BEC 
STAA 
BRA 


SSB 6890 TEXT PROCESSOR 


RETURN 
MACNAM 
ATL35 
O,X 
ATL45 


GET NAME 


SAVE CHARACTER 


* INCREMENT TRAP FOINTER 


INTRP 


* DEFINE MACRO 


DEFMAC 
DEFMA2 


DEFMA3 


DEFM35 


DEFMA4 
DEFM45 


DEFMAS5 


INX 
INX 
INX 
CPX 
RTS 


LDAA 
BNE 
JSR 
BEG 
INC 
CLR 
JSR 
CMPA 
BNE 
JSR 
CMPA 
BEQ 
PSH 
LDAA 
JSR. 
PUL 
JSR 
CMPA 
BEG 


FIX 


POINTER 


#TRPEND FINISHED? 


MBFLG 
DEFMA5S 
CPMAC 
DEFMA5 
DFMFLG 
CMFLG 
CLRGET 
#'. 
DEFM35 
CLRGET 
#'. 
DEFMA4 
A 

#'. 
CUTMAC 
A 
OUTMAC 
#$D 
DEFMA3 
CLRGET 
DEFM35 
CLSMAC 
CLRGET 


#8 


DEFM45 
DFMFLG 
RETURN 


CHECK DEF FLAG 
GO OPEN MACRO 


SET DEF FLAG 
CLEAR COMMAND 

GO GET CHARACTER 
IS IT A PERIOD? 


GET NEXT CHAR. 
IS IT A PERIOD? 


SAVE CHAR 
SET UP PERIOD 


OUTPUT TO MACRO 


RESTORE CHAR 
OUTPUT TO MACRO 
IS IT A C.R.? 


GET NEXT CHAR. 
CLOSE MACRO 

GET CHARACTER 
IS IT A C.R.? 


CLEAR DEF FLAG 


* APPEND TO A MACRO .AP xX 


APMAC 


* REMOVE MACRO 


REMMAC 


LUAA 
BNE 
JSR 
BRA 


JSR 
JSR 


MBFLG 
DEFMA5S 
OPAPP 
DEFMA2 


eRM XX 


GTNAM 
FNDMAC 


CHECK FLAG 


OPEN FOR APPEND 


GO GET NAME 
FIND MACRO 


MAL/686@0 1.2: MEBC SSB 6860 TEXT PROCESSOR 
DATE TIME; Page 40; Form 6 
EBA 2761 166: BEQ REMMA4 
GEBC 39 167: RTS RETURN 
GEBD DF97 168: REMMA4 STX MACTMP SAVE POINTER 
GEBF EE@2 169: LDX 2,% GET ADDRESS 
GEC1l BD1633 178: JSR CHKLST LAST MACRO? 
G@EC4 2414 171: BCC REMMA6 
®EC6 DEST 172: LDX MACTMP GET POINTER 
OEC8 AbG2 173: LDAA 2,X GET ADDRESS 
BECA £663 174: LDAB 3,X 
BECC DESY 75s LDX LSTAVL SET LAST AVAIL 
BECE A7G@6 176: STAA O,X 
GED’ E701 177: STAB 1,X 
WED2 DEOF 178: LDX NXTMAC SET UP NXT MAC 
CED4 DF99 179: STX LSTAVL SAVE AS LAST AVAIL 
GED6 DEI7 186: LDX MACTMP 
CELD8 200A 181: BRA REMNAM 
GEDA DEQ7 182: REMMA6 LDX MACTMP SET UP POINTER 
GELC A6GzZ 183: LDAA 2,X GET ADDRESS 
MEDE £683 184: LDAB ore! 
CLEW S7SB 185: STAA FSTAVL SET FIRST AVAIL 
GEE2 C79C 186: STAB FSTAVL+t+1 

167: 

188: * REMOVE MACRO NAME FROM TABLE 

189: 
OEE4 E604 198: REMNAM LDAB 4,X% MOVE CHAR DOWN 
GEE6 E76 191: STAB 0,X 
GEES 08 192: INX BUMP THE POINTER 
BEES ICED 193: CPX MACEND FINISHED? 
HEEB 26F7 194: BNE REMNAM 
GLED 69 195: DEX DEC THE POINTER 
WEEE @9 196: DEX Pas 20k, 
QEEF 69 197: DEX 
VEFO 89 198: DEX 
EF] DEED 199: STX MACEND SET NEW END 
VEF3 39 200: RTS RETURN 

2b1: 

202: * DIVERT .DI XxX 

203: 
BEF4 S685 2604: DIVERT LDAA DIVFLG CHECK BIV FLAG 
CEF6 276D 265 BEG © DIVER2 
GEF8 7CB886 206: DIVER@Y INC CIVFL2 SET MARKER 
GEFB 7E@FC7 207: JMP CLSMAC CLOSE MACRO 
GEFE 7F8085 288: DIVER1 CLR DIVFLG CLEAR FLAGS 
OFO1 T7FEBES6 209: CLR DIVFL2 
OFB4 39 218: RTS  —SO RETURN 
GF@5 7CUL86 211: DIVER2 INC DIVFL2 SET MARKER 
OF“8 &D14 zi2s BSR OPMAC GO OPEN MACRO 
OF BA 27F2 213: DIVER4 BEG DIVER1 
GFUC 7CHB85 214: INC DIVFLG SET FLAG 
OF OF 7FO@845 215: CLR LDIV CLEAR COUNT 
OF12 39 216: RTS RETURN 

217: 

218: * DIVERT APPEND .DA XX 

219: 
@F13 9685 220: DIVAPP LDAA DIVFLG CHECK DIV FLAG 


MAL/6866 1.2: 


DATE 


GF15 
UF17 
OF 1A 
OFIC 


OFI1E 
GF 21 
OF2Z3 
wF25 
GE 26 
OF 29 
OF 2B 
BF 2D 
OF2F 
6F31 
OF 33 
OF 36 
GE36& 
GF 3B 
OF 3D 
BF 3F 
GF 41 
OF 43 
OF45 
OF 47 
GF4E 
GF49 
WF4A 
CF 4B 
GF 4D 
OF 4F 


GF51 
OF54 
BE 56 
OF58 
GF59 
OF 5C 
OF5E 
GE O66 
~F63 
wF65 
YF67 
QF69 
UF OB 
GF6D 


OFOF 
OF 72 


OF 17 

TIME; Page 41; 
26E1 221: 
708286 222: 
8D35 223: 
2GEC 224: 

225: 

226: 

227: 
BD1@5S 228: 
9695 229: 
2661 238: 
39 231: 
BD1664 232: 
2604 233: 
8D9¢ 234: 
20F7 235: 
9695 236: 
D696 Z37: 
8C1E9D 238: 
2603 239: 
7EOFAF 248; 
A766 241: 
E7@1 242: 
969E 243: 
D69C 244: 
A762 245: 
E7@3 246: 
0& 247: 
G8 2483 
2&8 249: 
08 256: 
DFED 251: 
DE9B 252: 
261E 253% 

254: 

255: 

256: 
BD1@659 257r: 
9695 258: 
2661 259: 
39 266: 
BD16@4 261: 
26D1 262: 
EE@2 263: 
BD1¢33 264: 
240A 265: 
96 9B 266: 
D69C 267: 
A706 268: 
E761 269: 
CE9B 276: 

271: 

272: 

2138 
7D6086 2743 
2706 215: 


Form 6 


* OPEN 


OPMAC 


OPMAC2 


OPMAC4 


OPMAC5 


* OPEN 


OPAPP 


OPAPP2 


* SAVE 


SAVSX 


BNE 
INC 
BSR 
BRA 


SSB 6800 TEXT PROCESSOR 


DIVERS 
CIVFL2 
OPAPP 

LIVER4 


A MACRO SPACE 


JSR 
LDAA 
BNE 
RTS 
JSR 
BNE 
BSR 
BRA 
LDAA 
LDAB 
CPX 
BNE 
JMP 
STAA 
STAB 
LDAA 
LDAB 
STAA 
STAB 
INX 
INX 
INX 
INX 
STX | 
LDX 
BRA 


GTNAM 
MACNAM 
OPMACZ 


FNDMAC 
OPMAC4 
REMMA4 
OPMAC 2 
MACNAM 


MACNAM+1 


#MTEND 
OFMACS5 


SET MARKER 
OPEN FOR APPEND 


GET MACRO NAME 
PRESENT? 

LOOK FOR MACRO 
REMOVE OLD VERSION 
OPEN MACRO 

GET NAME 


ENC OF TABLE? 


SYSERR REPORT ERROR 


1,% 
FSTAVL 


FSTAVLt1 


3,% 
BUMP 


MACEND > 


FSTAVL 
SAVSX 


SAVE NAME 


GET FIRST AVAIL 


SAVE IN TABLE 


THE POINTER 


SET NEW END 


GET LAST AVAIL 


MACRO FOR APPEND 


JSR 
LDAA 


STAB 
LDX 


GTNAM 
MACNAM 


OPAPP2 


NO 
FNDMAC 
OPMAC4 


FSTAVL 


FSTAVL+1 


O,X 
1,X 
FSTAVL 


SPECIAL INDEX 


TST 
BEQ 


DIVFL2 
SAVSX2 


GET MACRO NAME 
NAME 
FIND MACRO 


GET LOCATION 
IS IT THE LAST ONE? 


GET FIRST AVAIL 


SET NEW 


TEST MARKER 


MAL/68@8 1.2: 


DATEL 


GF74 
OE 77 
OF 7S 
OF 7A 
QE 7C 


@F7D LC 


OF 7F 
OFE2 
BFE4 
OF&6 
VFES8 
OF8A 
GF 8C 
OFSE 
OF IG 
OF92 
WF94 
CFI6 
CEOS 
CF9IB 
OF 9E 
GPA 
OFA] 
CFA3 
BFA5 
QFAO6 
GFAT 
UFAG 
OFAB 


OPAL 2 


GFAF 


GFB2 
OFB4 
OF B6 
OFE7 
OF BY 
GF BA 
ZEBC 
OFBE 
HWEFCO 
BEC Z 
GFC4 
UFC6 


TIME; 


TFG B86 
DFA 


7E€911 


QF 77 
Page 42; 


276: 
277: 
278: 
279: 
280: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
2390: 
291: 
292: 
293: 
294: 
2953 
296: 
297: 
298: 
299: 
30G: 
301: 
302: 
303: 
304: 
3@5: 
306: 
307: 
308: 
309: 
3198: 
311: 
312: 
313% 
314: 
315: 
316: 
317: 
318: 
319: 
320: 
321% 
322: 
323: 
324: 
325: 
326: 
3273 
328: 
3293 
336: 


Form 6 


SAVSK2 


CLR 
STX 
RTS 
STX 
RTS 


SSB 6886 TEXT PROCESSOR 


DIVFL2 
NXTOUT 
RETURN 
NXTMAC 


CLEAR MARKER 
SAVE POINTER 


SAVE POINTER 


* CUTPUT TO MACRO SPACE 


OUTMAC 


OUTMAG 
OUTMA] 


OUTM18 


OUTMA3 


OUTMA4 


* REPORT SYSTEM MACRO 


STX 
TST 
BEG 
LDX 
BRA 
LDX 
TST 
BEQ 
CMPA 
BHI 
CMPA 
BNE 
TST 
BEQ 
INC 
STAA 
INX 
BSR 
LDX 
RTS 
INX 
CPX 
BEQ 
LDX 
BRA 


SYSERR JMP 


* INPUT TO MACRO SPACE 


INMAC 
INMAC2 


INMAC 4 


INMAC5 


LDX 
LDAA 
INX 


BEC 
RTS 


XMAC 
DIVEL2 
OUTMAG 
NXTOUT 
OUTMA] 
NXTMAC 
0,X 
OUTMA4 
#S1F 
OUTM18 
#S$D 
OUTMA3 
DIVFL2 
OUTM18 
LDIV 
0,X 
BUMP 
SAVSX 
XMAC 


PUMP 
LSTAVL 
SYSERR 
6,X 

OUTMA] 


MACOVF 


MBFPNT 
G,X 
BUMP 
MBFPNT 
AL 
INMAC4 
0,X 
INMAC2 
INMAC5 
# SPF 
INMAC 2 
RETURN 


* CLOSE MACRO SPACE 


SAVE POINTER 
LEST MARKER 


SET POINTER 


TEST IF END 
IS IT $1F? 
IS If C.R.? 


TEST MARKER 

BUMP DIV LINE CNT 
PUT CHARACTER 

THE POINTER 

GO SAVE X 

RESTORE PCINTER 


THE POINTER 
LAST AVAIL? 
ERROR? | 

GET POINTER 


ERROR 


REPORT OVERFLOW 


SET UP POINTER 
GET THE CHARACTER 
THE POINTER 

SAVE IT 


TEST THE CHAR. 


GET LINK 


IS CHAR FF? 


MAL/68@@ 1.2: OFCA SSB 6808 TEXT PROCESSOR 
DATE TIME; Page 43; Form 6 
GFC7 7DGG86 331: CLSMAC TST DIVFL2 TEST MARKER 
WFCA 2709 332: BEG CLSMA2 
OFCC 4F 333: CLR A 
@FCD 9785 334: STAA DIVFLG CLEAR FLAG 
QFCF 9786 335: STAA DIVFL2 
@FC1 DEAL 336: LDX NXTOUT SET PCINTER 
®FD3 28002 337: BRA CLSMA3 
GFC5 DESF 338: CLSMA2 LLX NXTMAC POINT TO NEXT MAC 
OFL7 6DOE 339: CLSMA3 TST 6,X TEST CHARACTER 
GFDY 2714 346: BEQ CLSMA4 
@FDB 6D61 341: TST 1,X TEST NEXT 
OBFDD 2717 342: BEC CLSMA5 
QFDF 6D@2 343: TST 2.5% ONE MORE 
GFE1 271A 344: BEQ CLSMA6 
G6FE3 6FO9 345; CLR G,X CLEAR CUT SFEACE 
BFE5 6F61 346: CLR bere 4 
OFE7 6F02 347: CLR 2,X% 
UFEOX 908 348: INX FIX POINTER 
CFEA @8 349; INX 
OFEB 08 356: INX 
@FEC DF9B 351: STX FSTAVL SET FIRST AVAIL 
@FEE 39 352: RTS RETURN 
OFEF BE@1 353: CLSMA4 LDX 1,X GET LINK 
GFF1 26E4 354: BNE CLSMA3 
OFF3 7E®FAF 355: JMP SYSERR REPORT MACRG ERROR 
OFF6 86FF 356: CLSMA5 LDAA #SFF SET UP FF 
QOFF&8 A7OG 357: STAA 0,X SAVE IT 
OFFA 66 358: INX 
OFFER 20F2 359: BRA CLSMA4 
GFFD 86FF 366: CLSMA6 LDAA #SFF SET UP FF 
GFFF A7@O 361: STAA 6,X SAVE IT 
1@61 08 362: INX FIX POINTER 
1462 20F2 363: BRA CLSMA5 

364: 

365: * FIND MACRO 

366: 
1664 9695 367: FNDMAC LDAA MACNAM CHECK NAME 
1@06 2717 368: BEQ FNDMA4 
1608 D696 369: LEAB MACNAM+1 GET NAME 
1@@A CE1D9D 378: -~LDX  #MACTBL POINT TO TABLE 
10@D 9CED 371: FNDMA1 CPX MACEND FINISHED? 
190F 27WE 372: BEQ FNDMA4 
1011 AlG@ 373: CMPA 0,X TEST 1ST CHAR. 
1013 2604 374: BNE FNDMA2 | 
1015 £161 375: CMPB- 1,X TEST 2ND CHAR. 
1617 2708 376: BEQ FNDMA6 
1819 68 377: FNDMA2 INX FIX POINTER 
1G@1A @8& 378: INX 
161B 68 379: INX 
161C 88 380: INX 
1610 2@EE 381: BRA FNDMA1 REPEAT 
1@1F DEED 382: FNDMA4 LDX MACEND SET POINTER 
1621 39 383: FNDMA6 RTS RETURN 

384: 

385: * FIND LAST MACRO ENTRY 


MAL/68@0u 1.2: 1622 SSB 6666 ‘t#XT PROCESSGS 
DATE TIME; Page 44; Form 6 


386: 
1@22 A60O 387: FNDLST LDAA o,X GET CHARACTER 
1@24 2703 368: BEQ FNDLS2 IS IT ZERO? 
1626 68 389: INX co TO NEXT 
1627 2uFS 396: BRA FNDLST 
1029 68 391: FNDLS2 INX BUMP POINTER 
192A DFYF 392% STX NXTMAC SAVE POSITIOCN 
102C EEG@ 393: LDX &,X FICK UP LINK 
162Eh 26F2Z 394: BNE FNDLST 
1@36 DESF 399% LUX NXTMAC CET NEXT LOC. 


L432 39 396: RTS RETURN 


MAL/6806 1.2: 18633 SSB 6800 TEXT PROCESSCR 
CATE TIME; Page 45; Form 7 
1: 
2: * CHECK LAST MACRO ENTRY 
3: 
1633 8DELG 4: CHKLST BSR FNDLST FIND LAST ENTRY 
1635 68 5: INX FIX FGINTER 
1036 9&8 6: INX 
1637 9C9B 7: CPX FSTAVL IS IT FIRST? 
1639 2704 8: EEQ CHKLS2 
1€3E DCE9F 9: LDX NXTMAC GET NEXT 
103D @D 1@: SEC 
1@3E 39 ll: RTS RETURN 
103F 69 12: CHKLS2 DEX BACK UP 
1040 69 ce DEX 
141 @9 14: DEX 
1642 86FF 15: LDAA #SFF SET UP FF 
1@44 A760 16: STAA 0,X PUT CHARACTER 
1€46 A7@1 17: STAA Eph 
1648 A7@2 18: STAA 2,X 
Lw@4A WC 19: CLC 
1&“4BE 39 26: RTS RETURN 
zi 
22: * END MACRO EXECUTION 
23 
164C 967F 24: MCEND LDAA MACCNT GET COUNT 
164E 2766 25° BEC MCEND2 
105@ 7FOO5E 26: CLR MBF LG CLEAR FLAG 
1653 7C®@@7C 27s INC | FINMAC SET FINISHED 
18656 7E@9I1A 28: MCENDZ JMP FINCM GO FINISH 
29: 
30: * GET TWC CHARACTER NAME 
ow es ee 
1659 BD12A7 32: GTNAM JSR -LDNSKP GET TO NEXT 
165C BD12B5 333 JSR CLSFY CLASSIFY IT 
Lg5F C162 34: CMPB #2 
1661 261C 35: BNE GTNA6 
1063 36 36: PSH A SAVE CHARACTER 
1864 @& 37s INX FIX THE POINTER 
1865 A600 38: LDAA O,X GET CHARACTER 
1867 BD12B5 39: JSR CLSFY GO CLASSIFY 
166A C162 40: CMPB  ~#2 
1#6C 33 41: - PUL B RESTORE CHARACTER 
lu6D 2616 42: BNE GTNA6 
1Q@6F 68 43: INX ADJUST POINTER 
1978 DFDS 443 STX CMNPNT SAVE IT . 
1672 C15F 45: CMPB. #$5F LOWER CASE? 
1674 2304 46: BLS GTNA4 
1876 8626 47: SUB A #$2@ MAKE UFPER 
1878 C28 48; SUB B #$ 26 
197A D795 49: GTNA4 STAB MACNAM SAVE THE NAME 
LE7C 9796 50: STAA MACNAM+1 
1G7E 39 a RTS RETURN 
1O67F 4F 52: GTNA6 CLR A CLEAR OUT 
1@86 5F 53: CLR B 
1081 26F7 54:3 BRA GTNA4 


55: 


MAL/660@ 1.2: 1883 SSB 65800 TEXT PROCESSOR 
LATE TIME; Page 46; Form 7 

a * SET TITLE LENGTH .LT +N 

57: 
1683 BL12E9 58: TLEN JSR CHKNUM CHECK FOR NUMBER 
1686 2467 59: BCC TLEN2 
1088 S6CB 66: LDAA TLN GET LENGTH 
108A BD12D8 61: JSR FIXVAL GO FIX VALUE 
leet STCB 62: STAA TLN SAVE NEW 
1@8F 39 63: TLEN2 RTS RETURN 

64: 

65: * DC THREE PART TITLE .TL '1'2'3' 

66: 
1698 7EE@BAC 67: TITLE CLR TPOS CLEAR POSITION 
1693 BD12A7 68: JSR LDNSKP GET TO NEXT 
1696 81@D 69: CMPA #SD Le Race 
169& 27F5 70:3 BEQ TLEN2 
169A CEILB9L 71: LDX #TTLBUF POINT YO BUFFER 
169% 7C685E 72: INC NOCR SET FLAG 
1GAb CFBY 73: TITLE1 STX TTLPNT SAVE POINTER 
l€AZ BLe74C 74:3 JSR GETCHR GO GET CHAR. 
1#A5 LCEBG 753 LDX TTLPNT RESTCRE POINTER 
1WA7 A76& 76:3 STAA g,X SAVE THE CHAR. 
1@AG 818@D Ld CMPA #SD FINISHED? 
1GAE 2763 78: BEQ TITL12 
1HWALD O& 793 INX EUMP THE FOINTER 
1OAE 26F6 80: BRA TITLE] 
16B@ 7E@ESE 81: TITL12 CLR NOCR CLEAR FLAG 
16B3 CEI1AE9 82: LDX #CMNDBF POINT TO BUFFER 
16B6 A6B4 83: TITL15 LDAA TTLBUF-CMNCBF ,X 
10B8 A764 84: STAA 8,X PUT CHAR. 
1GBA @8 85: INX GET TO NEXT 
1&BE §16D 86: CMPA #$D FINESHED? 
1@BD 26F7 87: BNE TITL15 
1BBF CELAEY 88: LDX #CMNDBF RESTORE POINTER 
18CZ ABE 89; LDAA O,X GET CHARACTER 
18C4 97AD 9@: STAA DELIM SAVE DELIMITER 
18@C6 £8 91: INX BUMP THE POINTER 
16C7 OFDY G2: STX CMNENT SAVE IT 
186C9 CE1B9D 93: LDX #TTLBUF POINT TO BUFFER 
1WCC LFBO 94: STX TTLPNT 
16CE 86260 95: LDAA #$26 SET UP SPACE 
1GDO ATG 96: TITLE2 STAA O,X SAVE IT 
1Q@B2 68 97: INX BUMP POINTER 
10D3 sc1BED 98: CPX #TTLBUF +890 . 
19C6 26F& 99; BNE TITLE2 
1£D8 Bb1141 160: JSR -CNTTTL GO COUNT TITLE 
1@DB O7AE 101: STAB TCNT SAVE COUNT 
1gDb BB1155 162: JSR XFRTTL TRANSFER TITLE 
1OE”® BD1141 103: JSR CNTTTL COUNT TITLE 
1GE3 9Y6CB 104: LDAA TLN GET LENGTH 
1BE5 16 105: SBA 
1GEb 47 106: ASR A 
1@E7 S7AF 1@7: STAA MCNT SAVE MIDDLE COUNT 
1OE9Y C620 108: LDAB #520 GET SPACE 
1@EB 91AE 199: CMPA TCNT 
L@EDG 236F 116: BLS TITLE5 


MAL/6806 1.2: 


DATE 


1@EF 
1@F1 
16F3 
16F5 
1OF6 
1OF9 
10FA 
1OFC 
1GFE 
1181 
1164 
1186 
1168 
1169 
116B 
116C 
LI@E 
1119 
1112 
1113 
1114 
1116 
1118 
1115 
111D 
111F 
1121 
1123 
1125 
1127 
1128 
112B 
112C 
112D 
112F 
1132 
1134 
1137 
1138 
113B 
113D 
1148 


1141 
1142 
1144 
1146 
1148 
114A 
114C 
114E 
114F 
1156 


TIME; 


26F6 
CE1B9D 
A600 
BD1645 
08 

7A@ BAC 
26F5 
BD@95C 
33 


5F 

DED9 
A688 
91AD 
2708 
519D 
2704 
08 

5C 

20F2 


1OF1 
Page 47; 


lll: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137s 
138: 
139: 
146: 
141; 
142: 
143: 
144: 
145: 
146: 
1473 
148: 
149; 
158: 
151: 
152: 
153: 
154: 
155: 
156: 
Loy: 
158: 
159: 
166: 
161: 
162: 
163: 
164: 
165: 


Form 7 


TITLE4 


TITLES 


TITL65 


TITLE? 


TITL75 


TITL78 


TITLES 


TITLEY 


* COUNT CHARACTERS IN 


CNTTTL CLR | 


CNTTT2 


SUB 
LDX 
STAB 
INX 
INC 
DEC 
BNE 
STX 
JSR 
JSR 
LDAA 
SUB 
CBA 
BLS 
SBA 
LDAB 
LDX 
STAB 
INX 
DEC 
BNE 
STX 
JSR 
LDAA 
STAA 
BEQ 
LDAB 
BEQ 
LDAA 
PSH 
JSR 
FUL 
DEC 
BNE 
LDX 
LDAA 
JSR 
INX 
DEC 
BNE 
JSR 
RTS 


LDxX 
LDAA 
CMPA 
BEQ 
CMPA 
BEQ 
INX 
INC 
BRA 


SSE 6806 TEXT PROCESSOR 


A 
TTLPENT 
0,X 
BUMP 
TPOS 

A 
TITLE4 
TTILPENT 
XFRTTL 
CNTTTL 
TLN 

A 


TITLE7 


TPOS 
TITLES 
LFM 
TITL78 
#$20 

B 


~ OUTCHR » 
B 


B 
TITL75 


#TTLBUF 


RETURN 


B 


CMNPNT 
0,X 
DELIM 
CNTTT3 
#$D 
CNTTT3 
BUMP 

B 
CNTTT2 


ICNT 

RESTORE POINTER 
SAVE CHAR. 

THE POINTER 
UPDATE POSITION 


SAVE POINTER 
TRANSFER TITLE 
COUNT TITLE 
GET LENGTH 
TPOS FIX POSITION 


SET UP SPACE 
SET POINTER 
PUT CHAR 
POINTER 

DEC THE COUNT 


SAVE POINTER 
TRANSFER TITLE 
GET LENGTH 
SAVE POSITICN 
CHECK MARGIN 


SETUP SPACE 


OUTPUT SPACE 


CDEC COUNT 


POINT TO TITLE 
GET A CHARACTER 
OUTPUT IT 

TO NEXT 

DEC COUNT 
REPEAT TIL DONE 
OUTPUT CR & LF 


TITLE 

CLEAR COUNT 

SET POINTER 

GET CHARACTER 

IS IT DELIMITER? 
IS IT C.R.? 


THE POINTER 
BUMP COUNT 


MAL/6880 1.2: 


DATE 


1152 
1154 


1155 
1157 
1159 
115B 
115B 
L15E 
1168 
1162 
1164 
1165 
1167 
116A 
116C 


116E 
1176 
1171 
1173 


1174 
1177 
117A 
117¢ 
l17E 
1181 
1183 
1185 
1187 
1189 
118B 
118D 
118F 
1191 
1192 
1194 
1196 
1198 
119A 
119¢C 
119D 
L19F 
lIA1 
11A3 
11A5 
11A8 
L1AB 


TIME; 


DFDB 
39 


DFBS 
7C@BAC 
20E9 
2002 


DEC9 
O& 
DFD9 
39 


7F@07D 
BD12A7 
8121 
2667 
73067D 
8DEB 
20F 2 
815F 
2362 
8020 
814F 
2667 
9669 
46 
2428 
2069 
8145 
2627 
9669 
46 
251D 
967D 
2631 
8DC9 
BD12A7 
7F 0064 
812E 


1154 
Page 48; 


166: 
167: 
168: 
169: 
176: 
171: 
172: 
173: 
174: 
175: 
176: 
177: 
178: 
179: 
186: 
181: 
182: 
183: 
184: 
185; 
186: 
187: 
188: 
189: 
1990: 
191; 
192: 
193: 
194; 
195: 
196: 
197: 
198: 
199: 
200: 
261: 
202: 
203: 
204: 
2053 
206: 
2073 
2608: 
209: 
210: 
211: 
212: 
213: 
214: 
215: 
216: 
217: 
218: 
219: 
220: 


Form 7 


CNTTT3 


STX 
RTS 


SSB 6868 TEXT PROCESSOR 


SPCPT1 
RETURN 


SET POINTER 


* TRANSFER TITLE TO BUFFER 


XFRTTL 


* BUMP 


BMPCP 
BMPCP2 


* IF COMMAND 


IF 
IF1 


IF3 


IF35 


IF4 


IFY 


IF5 


LDX 


CMNPNT 
SPCPT1 
BMPC P2 
6,X 
BUMP 
CMNPNT 
TTLPNT 
0,X 
BUMP 
TTLPNT 
TPOS 
XFRTTL 
BMPCP2 


SET POINTER 
FINISHED? 


GET CHARACTER 
TO NEXT 

SAVE 

SET POINTER 
PUT CHARACTER 
TO NEXT 

SAVE 

BUMP POSITION 
REPEAT 


COMMAND POINTER 


LDX 


INX _ 


STX 
RTS 


CLR 
JSR 
CMPA 
BNE 
COM 
BSR 
BRA 
CMPA 
BLS 
SUB 


CMPA 


BNE ~ 
LDAA 
ROR 
BCC 
BRA © 


CMPA 


BNE 
LDAA 
ROR 
BCS 
LDAA 
BNE 
BSR 
JSR 
CLR 
CMPA 


CMNPNT GET POINTER 


BUMP 


IT 


CMNPNT SAVE IT 


RETURN 


eIF CONDITION 


CM 

CLEAR FLAG 
FIND NEXT CHAR 
Is 3f.A ‘1° 


SET NEG FLAG 
BUMP POINTER 


IS IT LOWER CASE? 


#$2@ MAKE UPPER 
CHECK IF ODD 


GET PAGE NUMBER 
CHECK IF ODD 


EVEN? 


GET PAGE NUMBER 
CHECK IF EVEN ~ 


CHECK NEG. 


BUMP POINTER 
GET NEXT CHAR 
CLEEAR FLAG 

IS IT PERIOD? 


MAL/6666 1.2: 


CATE 


11AD 
L1AF 
11B1 
11B3 
11B5 
11B6 
11B8 
11BB 
11BC 
11BE 
11C6 
1icl 
11¢4 
11C6 
L1cé 
11¢9 
LICA 
Lice 
LICE 
11D6 
11D2 
11D4 


11D5 
11D7 
11D9 
11DB 
11DD 
L1E®@ 


L1E1 
11E4 
L1IE6 
11E8 
L1EA 
11EB 
11EE 
11F1 
1l1F2 
lira 
11F5 
11F7 
L1F9 
LIFC 
LIFE 
LIFF 
1262 
1264 
1266 
1206 
126B 


L1AF 


TIME; Page 49; 


2766 
813A 
260C 
9764 
G8 
DFD9 
TCOB7E 
39 
967D 
26E3 
39 
BD12E9 


BD12D8 


221: 
222: 
223: 
224: 
225: 
226: 
227: 
228: 
229: 
236: 
231: 
232: 
233: 
234: 
235: 
236: 
237: 
238: 
239: 
248: 
241: 
242: 
243: 
244: 
245: 
246: 
247: 
248: 
249: 
256: 
251 
252: 
253: 
254: 
2553 
2563 
257% 
258: 
2593: 
260: 
261: 
262: 
263: 
264: 
2653 
266: 
267: 
268: 
269: 
2708: 
271: 
272: 
27132 
274: 
2753 


Form 7 


IF55 


IFN 


IFN2 
IF6 


IF8 
* TEST 


TSTNEG 


TSTNE2 


* CHANGE TRAP LOCATION 


CHNG 


CHNG2- 


CHNG25 
CHNG3 


CHNG4 


BEQ 
CMPA 
BNE 
STAA 
INX 
STX 
INC 
RTS 
LUAA 
BNE 
RTS 
JSR 
BCC 
LDX 
DEX 
DEX 
STX 
LDAA 
BMI 
BEQ 
BRA 
RTS 


SSB 6888 TEXT PROCESSOR 


IF55 
#': 
IFN2 
NOFL 
FIX 
CMNPNT 
IFFLG 
RETURN 
NEGT 
IF5 
RETURN 
CHKNUM 
IF8 
CMNPNT 
ABJUST 


CMNPNT 
INNUM 
IFN 
IFN 
IFY 
RETURN 


IS IT COLON? 
SET NO FLUSH 
POINTER 
SAVE IT 
SET IF FLAG 


CHECK NEG. 


CHECK FOR NUMBER 


GET POINTER 


SAVE 
GET NUMBER 


FOR NEGATIVE NUMBER 


LDAA 
BPL 
STAA 
STAA 
NEG 
RTS . 


JSR 
BCC 
BSR 
LDAA 
INC 
JSR 
LDX 
Toe 
BNE 


INC 
CMPA 


BEQ 
JSR 
BNE 
RTS 
JSR 
LDAA 
BEQ 
LDAB 
LDX 
CMPA 


INNUM 
TSTNE2 
SIGN 


NEG 


INNUM 
RETURN 


CHKNUM 
CHNG3 
TSTNEG 
PGL 


A 


~FIXVAL 


#TRAPS 


A 
CHNG2 
A 


_8,% 


CHNG5 
INTRP 
CHNG2 
RETURN 
GTNAM 
MACNAM 
CHNG25 


MACNAM+1 


#TRAPS 
1,X 


GET NUMBER 
SET SIGN 
SET NEG 
NEGATE NUM. 
-CH -M -N 
CHECK FOR NUMBER 


NEGATIVE? 
GET PAGE LENGTH 


FIX VALUE 
POINT TO TRAPS 


BUMP IT. 
TEST LOCATION 


BUMP POS. 


GO GET NAME 


POINT TO TRAPS 
CHECK CHAR. 


MAL/68@6 1.2: 


120F 


DATE TIME; Page 586; 


12D 
126F 
1211 
1213 
1214 
1215 
1216 
1219 
1216 
121C 
121E 
1221 
1223 
1225 
1227 
1228 
122B 
122C 
122E 
122F 
1231 
1233 


1234 
1237 
123A 
123C 
1235 
123F 
1242 
1245 
1246 
1246 
124B 
124D 
1258 
1252 


1253 
1256 


1257 
1259 
125B 


125C 
12Z5E 


BD12A7 
BD12B5 
C182 
2614 
36 
BD116E 
BD12E9 
32 
240A 
BD1277 
A628 
BD12D8 
A700 
39 


7F69B7 
39 


8688 
97B7 
39 


860F 
20F9 


276: 
277: 
278: 
279: 
286: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
296: 
291: 
292: 
293: 
294: 
295: 
296: 
297: 
298: 
299: 
300: 
301: 
302: 
303: 
304: 
305: 
306: 
367: 
368: 
389: 
3186: 
311: 
312: 
313: 
314: 
3153 
316: 
317: 
318: 
319: 
328: 
321: 
322: 
323: 
324: 
3253 
326: 
327% 
328: 
329: 
336: 


SSB 680@ TEXT PROCESSOR 


Form 7 
BNE CHNG45 
CMPB 2,% 
BEQ CHNG5 
CHNG45 INX BUMP 
INX 
INX 
CPX #TRPEND 
BNE CHNG4 
RTS RETURN 
CHNG5 STX TEMP5 
JSR CHKNUM 
BCC CHNG25 
BSR TSTNEG 
LDAA PGL 
INC A 
JSR FIXVAL 
TST A 
BNE CHNG6 
INC A 
CHNG6 LDX TEMP5 
STAA 0,X 
RTS RETURN 
* SET NUMBER REGISTER 


NREG JSR LDNSKP 
JSR —-CLSFY 
CMPB #2 
BNE NREG4 
PSH A 
JSR BMPCP 
JSR CHKNUM 
PUL A 
BCC NREG4 
JSR FNDNUM 
LDAA 08,X 
JSR —- FIXVAL 
STAA 0,X 
NREG4 RTS RETURN 
* SET ARABIC MODE .AR 
ARB CLR ~~ ROM 
RTS = RETURN 
* SET FOR SMALL ROMAN 
SROM LDAA- #$86 
ROM2 STAA ROM 
RTS 


* SET FOR CAPITAL ROMAN 


CROM LDAA 


BRA 


# SF 
ROM2 


TO NEXT 
END OF TABLE? 
SAVE POINTER 


CHECK FOR NUMBER 


IS IT NEG.? 
GET PAGE LENGTH 


FIX VALUE 

BUMP IT 

RESTORE POINTER 
PUT CHAR 

e-NR X N 

GET TO NEXT 
CLASSIFY IT 


SAVE 

BUMP POINTER 
CHECK FOR NUMBER 
RESTORE 

GO FIND NUMBER 
GET CHARACTER 
FIX VALUE 

SAVE IT 


CLEAR ROMAN 


°SR 


SET FLAG 


~CR 


SET FLAG 


MAL/6866 1.2: 


1268 


DATE TIME; Page 51; Form 7 


1266 
1263 
1265 
1267 
126A 
126C 


126D 
126E 
1270 
1272 
1274 
1276 


L277 
127A 
127C 
127E 
1286 
1282 
1284 


1285 
1287 
-1289 
1286 
128D 
128F 
1298 
1292 
1294 
1296 
1299 
129B 
129E 
12Al 
12A4 


12A7 
12A9 
12AB 
12AD 
12AF 
12B@ 


BD12E9 
2407 
96B5 
BD12D8 
97B5 
39 


5F 
G765 
D754 
D7 4F 
D752 
39 


CEO630 
8041 
DF55 
9B56 
9756 
DE55 
39 


DE55 
9C58 
2716 
A680 
847F 
08 
DF55 
816D 
2668 
7DOO5E 
2663 
7E88 OB 
7E@®7CL 
7F@@57 
7TE@B74C 


DED9 
A688 
8120 
26683 
68 

20F7 


331: 
332: 
333: 
334: 
335: 
336: 
337: 
338: 
339: 
340: 
341: 
342: 
343: 
344: 
345: 
346: 
347: 
348: 
349; 
356: 
351% 
335.2% 
353% 
354: 
355% 
356: 
357: 
358: 
359: 
368: 
361: 
362: 
363: 
364: 
365: 
366: 
367: 
368: 
369: 
3706: 
371: 
372: 
373: 
374: 
Wao 
376: 
377: 
378: 
379: 
386: 
381: 
382: 
3833 
384: 
385: 


SSB 686@ TEXT PROCESSOR 


* SET AUTO INCREMENT 


SAUTO 


SAUTO4 


JSR 
BCC 
LDAA 
JSR 
STAA 
RTS 


CHKNUM 
SAUTO4 
AUTO 
FIXVAL 
AUTO 
RETURN 


* CLEAR NUMBER SPACE 


CLRNUM 


* FIND 


FNDNUM 


CLR 
STAB 
STAB 
STAB 
STAB 
RTS 


NUMBER 


LDX 
SUB 
STX 
ADD 
STAA 
LDX 
RTS 


 B 


INNUM 
INC 
GDNUM 
BNUM 
RETURN 


eAU N 
CHECK FOR NUMBER 
GET OLD 


FIX VALUE 
SAVE NEW 


CLEAR OUT NUM 


SET FLAGS 


REGISTER 


#NMREGS SET POINTER 


A 
NUMPNT 
A 


NUMPNT+1 ADD OFFSET 


NUMPNT+1 


NUMPNT 
RETURN 


GET POINTER 


* FETCH NUMBER FROM BUFFER 


FTCHNM 


FTCHN1 
FTCHN2 
* LOAD 


LDONSKP 
LDNSK2 


LDX 
CPX 
BEQ 
LDAA 
AND 
INX 
STX 


_ CMPA. 


BNE 
TST 
BNE 
JMP 
GMP 
CLR 
JMP 


POINTER AND 


LDX 
LDAA 
CMPA 
BNE 
INX 
BRA 


NUMPNT 
LSTNUM 
FTCHN2 
6,X 

A 

BUMP 
NUMPNT 


#$D 


FTCHNI 
NOCR 

FTCHN1 
FETCH5S 
FETCH3 


_ EXCHR 


GETCHR 


CMNPNT 
8 ,X 
#520 
LDNSK4 
BUMP 
LDNSK2 


SET POINTER 
FINISHED? 


GET A CHAR. 


#S7F MASK IT 
THE POINTER 


SAVE IT 
C.R.? 
TEST FLAG 
RETURN 


CLEAR EXTRA CHAR. 
GO GET CHAR 


SKIP SPACES 


SET FOINTER 
GET CHARACTER 
IS IT SPACE? 


TO NEXT 


MAL/6806 1.2: 


DATE 


12B2 
1264 


12B5 
12B6 
12B7 
12B9 
12BB 
12BL 
12BF 
12C1 
12C3 
12C5 
12C7 
12C9 
12CB 
12CC 
12CD 
12CF 
12D1 
12D3 
12DB5 
12D7 


12D& 
12DA 
12DB 
12CF 
1L2E2 


. L2E4 


12E5 
12E6 
12E7 
1258 


12E9 
12EA 
12EC 
12EE 
12F1 
12F2 
12F4 
12F7 
12F9 
12FB 
12FD 
12FF 
1301 
1302 


TIME; 


DFD9 
39 


SF 

4D 

2B1E 
815F 
2306 
817F 
2216 
8028 
8138 
25186 
8139 
2262 
5C 

39 

8141 
2506 
815A 
2262 
C62 
39 


D665 
7D@667 
2708 
7D@666 
2761 
50 

1B 

39 

17 

39 


4F 
9767 
9766 
BD126D 
5C 
D75E 
BD12A7 
812B 
2706 
812D 
260B 
9766 
08 
DFD9 


12B4 
Page 52; Form 7 


386: 
387: 
388: 
389: 
398: 
391: 
392: 
393: 
394: 
395: 
396: 
397: 
398: 
399: 
460: 
461: 
4@2: 
493: 
404: 
405: 
406: 
407: 
408: 
409: 
41@: 
411: 
412: 
413: 
414: 
415: 
416: 
417: 
418: 
419: 
426: 
421: 
422: 
423: 
424: 
425: 
426: 
427: 
428: 
429: 
436: 
431: 
432: 
433: 
434: 
435: 
436: 
437: 
438: 
439; 
440: 


LDNSK4 


STX 
RTS 


SSB 6888 TEXT PROCESSOR 


CMNPNT 
RETURN 


* CLASSIFY CHARACTER 


CLSFY 


CLSFY1 


CLSFY2 


CLSFY4 


CLR 
TST 
BMI 
CMPA 
BLS 
CMPA 
BHI 
SUB 
CMPA 
BCS 
CMPA 
BHI 
INC 
RTS 
CMPA 
BCS 
CMPA 
BHI 
LDAB 
RTS 


B 

A 
CLSFY4 
#S5F 
CLSFY1 
#$7F 
CLSFY4 


A 

#'@ 
CLSFY4 
#'9 
CLSFY2 
B 
RETURN 
#'A 


CLSFY4 


#2 
RETURN 


* FIX NUMBER VALUE 


FIXVAL 


FIXVA3 


FIXVA4 


LDAB 
TST 


INNUM 
SIGN | 
FIXVA4 
NEG 
FIXVA3 
B 

FIX 
RETURN 


* CHECK FOR NUMBER™ 


CHKNUM 


CHKNU2 


CLR 
STAA 
STAA 


JSR 


INC 
STAB 
JSR 
CMPA 
BEQ 
CMPA 
BNE 
STAA 
INX 
STX 


A 


- SIGN 


NEG 


CLRNUM 


B 

NOCR 
LDNSKP 
#'+ 
CHKNU2 


BUMP 
CMNFNT 


SAVE FOSITION 


CLEAR SPECIFIER 
TEST CHAR 


LOWER CASE? 
TEST FOR PARITY 


#$26 MAKE UPPER CASE 
CHAR A NUMBER? 


IF SO, SET 


IS CHAR A LETTER? 


IF SO, SET 


GET NUMBER 
TEST SIGN 


TEST FOR NEG. 


NEGATE NUM 
VALUE 


CLEAR FLAGS 


CLEAR NUMBER 


SET FLAGS 

GO TO NEXT 
IS iT A. Ee 
IS ITA ‘'-‘'? 
SET NEG. 


THE POINTER 
SAVE IT 


MAL/6808 1.2: 


DATE 


1304 
1306 
1398 
130A 
136E 
136D 
130F 
1311 
1313 
1314 
1315 
1317 
1319 
131A 
131C 
131D 


131E 
1321 
1324 


136 

TIME; Page 53; 
8D1F 441: 
246D 442; 
2067 443: 
68 444: 
DFD9 445: 
8D32 446: 
2404 447: 
8D@B 448: 
OD 449; 
39 45@: 
8D07 451: 
DED9 452: 
69 453: 
DFD9 454: 
GC 455: 
39 456: 

457: 

458: 

459: 
7F@657 468: 
TFOO5SE 461: 


39 462: 


Form 7 


CHKNU4 


CHKNUS5S 


CHKNU6 


* CLEAR FLAGS 


CLRTHM 


BSR 
BCC 
BRA 
INX 
STX 
BSR 
ECC 
BSR 
SEC 
RTS 
BSR 
LDX 
DEX 
STX 
CLC 
RTS 


CLR 
CLR 
RTS 


SSB 686@ TEXT PRCOCESSGCR 


PRNUM 
CHKNU6 
CHKNU5 
FIX 
CMNPNT 
PRNU28 
CHKNU6 
CLRTHM 


RETURN 
CLRTHM 
CMNPNT 
CMNPNT 


RETURN 


EXCHR 
NOCR 
RETURN 


PROCESS NUMBER 


POINTER 
SAVE IT 
PROCESS NUM. 
CLEAR FLAGS 


CLEAR FLAGS 
SET POINTER 


CLEAR THEM 


MAL/6866 1.2: 


CATE 


1325 
1327 
132A 
132B 
132D 
1336 
1333 
1336 
1339 
133B 
133E 
1341 
1344 
1346 
1348 
134A 
134D 
1358 
1352 
1353 
1355 
1357 
135A 
135C 
135E 
1366 
1362 
1364 
1366 
1368 
136A 
136C 
L36E 
1370 
1372 
1374 
1376 
1373 
137C 
137F 
1381 
1383 
1386 
1388 
138B 
138D 
138F 
139] 
1393 
1395 
1397 
1399 
139B 


TIME; 


9767 
BD1260D 
5C 
D75E 
7F 6054 
7COB6A 
BD@74C 
708673 
27066 
7TFE073 
7E13E8 
BL12B5 
C101 
2565 
2751 
7E13D6 
7D6665 
2765 
36 
9665 
2058 
7F 6065 
8123 
2718 
812B 
2664 
9758 
286C7 
812D 
2684 
9751 
2@BF 
8125 
Z66C 
9669 
2639 
7TCHO6A 
BDO74C 
BD12B5 
C182 
2616 
BD1277 
A6 OO 
708054 
2722 
9BB5 
A7@O 
291C 
812B 
2647 
9754 
20DB 
8630 


1325 
Page 54; 


l: 
23 
Se 
4: 
5: 
6: 
7s 
8: 
93 
16: 


ll:. 


12: 
L3e 
14: 
153 
163 
ifs 
18: 
19: 
20: 
21: 
22: 
23: 
243 
253 
26: 
27: 
28:3 
293 
30: 
31: 
32: 
335 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
4l: 
42: 
43: 
44; 
45: 
46: 
47: 
48: 
49: 
50: 
Sis 
52: 
S32 
54: 
552 


SSB 680@ TEXT PROCESSOR 


Form 8 


* PROCESS NUMBER 


PRNUM STAA SIGN 
JSR CLRNUM 
INC B 
STAB NOCR 
PRNU27 CLR INC 
INC PASCHR 
JSR GETCHR 
TST NOEXP 
BEQ PRNU28 
CLR NOEXP 
JMP PRNU82 
PRNU28 JSR CLSFY 
CMPB #1 
BCS PRNU31 
BEQ PRNUM5 
JMP PRNU73 
PRNU31 TST INNUM 
BEQ PRNU32 
PSH A 
LDAA INNUM 
BRA PRNUM6 
PRNU32 CLR INNUM 
CMPA #' # 
BEQ PRNUM4 
CMPA #' + 
BNE PRNU35 
STAA ADD 
BRA PRNU27 
PRNU35 CMPA #'- 
BNE PRNU37 
STAA SUB 
BRA PRNU27 
PRNU37 CMPA #'S 
BNE PRNUM8 
LDAA PGN 
BRA PRNUM6 
PRNUM4 INC PASCHR 
JSR GETCHR 
JSR CLSFY 
CMPB #2 
BNE PRNU45 
JSR ~ FNDNUM 
LDAA @,X 
TST INC 
BEQ PRNUM6 
ADD A 
STAA 0,X 
BRA PRNUM6 
PRNU45 CMPA. #'+ 
BNE PRNUM8 
STAA INC 
BRA PRNUM4 
PRNUM5 SUB A 


CLEAR SIGN 
CLEAR NUMBER 


SET FLAGS 


CET NEXT CHAR. 
DO EXPRESSIONS? 


JUMP AHEAD 
GC CLASSIFY 


TEST NUMBER 


GET NUMBER 


CLEAR NUMBER 
CHECK FOR ‘'#! 


IS IT '+'? 
SET FOR ADD 
Is IT '-'? 

SET FOR SUBTRACT 
IS IT '$'? 

GET PAGE NUMBER 
SET FLAG 


GET CHARACTER 
CLASSIFY IT 


GO FIND NUMBER 
GET VALUE 
INCREMENT? 


AUTO ADD IN AUTO 
SAVE NEW 

1S.-1f "4°? 
SET INC. 


#$30@ BIAS NUMBER 


MAL/68@0@ 1.2: 139E 
TIME; Page 55; 


DATE 


139L 
139E 
13A8 
13Al 
13A2 
13A4 
13A5 
13A6 
13A7 
13A9 
13AC 
13AF 
13B1 
13B3 
13B4 
13B6 
13B7 
13B9 
13BB 
13BD 
13BF 
13C1 
13c4 
13C7 
13CA 
13CD 
13CF 
13D2 
13D3 
13D6 
13D9 
13DB 
13DC 
13DE 
L3E1 
13E4 
13E6 
13E7 
1358 
13EA 
13ED 
13EF 
13F1 
13F3 


EOE: 


13F7 
13F8 
13FA 
13FC 
13FE 
13FF 
1461 


36 
D665 
58 

58 
DB65 
58 

32 

1B 
9765 
7COO4FE 
7E132D 
D651 
2766 
16 
9652 
18 
2066 
D658 
2702 
9B52 
9752 
7FO658 
7F6051 


26D1 
TFO673 
7D064F 


56: 
57s 
58: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
7332 
74:3 


Form 8 


PRNUM6 


-PRNU65 


PRNUM7 


PRNU72 


PRNU73 


PRNUM8 


PRNU82 


* BINARY TO 


BTOD 
BTOD1 


BTOD2 


SSB 6806 TEXT PROCESSOR 


NNUM 


A 
I 
B 
B 
B 
B 
A 


INNUM 
GDNUM 
PRNU27 
SUB 
PRNU65 
DO 
BNUM 


PRNUM7 
ADD 
PRNUM7 
A 

BNUM 
ADD 
SUB 
GDNUM 
INNUM 
PRNU72 
PRNU27 


A 
PRNU32 
INNUM 


PRNUM8 > 


A 
PRNUM6 
NOEXP 
GDNUM 
PRNU82 
SET 
RETURN 
EXCHR 


~#NUM 


BNUM 
INNUM 
BTOD 
ROM 


-_ BTOROM 


B 
#106 
BTOD2 
A 

B 
BTOD1 
B 


GET NUM 
ADJUST 


INNUM ADD IT IN 
RESTORE 

SAVE NEW VALUE 
SET GOOD 

REPEAT 
SUBTRACT? 


SUBTRACT 


ADDITION? 
BNUM DO ADD 
SAVE NUMBER 
CLEAR FLAGS 
SET GOOD 
TEST NUMBER 
RESTORE CHAR 


TEST NUMBER 


CLEAR FLAG 
TEST GOOD 


CONDITION 
SAVE EXTRA CHAR. 


POINT TO NUMBER 
GET NUMBER 


ROMAN OR ARABIC? 


ASCII ARABIC 


NUM > 160? 


#1968 SUB OFF 106 


BUMP NUMBER 


ANY YET? 


MAL/6806 1.2: 


DATE 


1462 
1404 
1466 
1468 
1449 
140A 
148C 
14GE 
1416 
1411 
1413 
1414 
1416 
1418 
141A 
141B 
141D 
141F 
1426 
1422 
1424 
1425 
1427 
142A 
142¢ 
142D 


142E 
1436 
1432 
1434 
1436 
1438 
1439 
143B 
143D 
143F 
1441 
1443 
1445 
1447 
1448 
1449 
144B 
144D 
144F 
1451 
1453 
1454 
1456 
1458 
145A 
145¢c 


1464 


TIME; Page 56; 


2706 
CB36 
E706 
68 

5F 

510A 
2565 
8GGA 
5C 

26F7 
5D 

27065 
CB36 
E768 


lll: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
1298: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
LS fs 
138: 
139: 
148: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151: 
152: 
153: 
154: 
155: 
156: 
157: 
158: 
159: 
1686: 
161: 
162: 
163: 
164: 
165: 


Form 8 


BTOD3 


BTOD4 


BTOD45 


BTOD5 


* BINARY TO 


BTOROM LDAB 


BTORO1] 


BTORO2 


BTORO3 


BTORO4 


CMPA 
BCS 
SUB 
STAB 
INX 
BRA 
CMPA 
BCS 
SUB 


STAB | 


LDAB 


STAB | 


INX 
INX. 
CMPA 
BCS 
SUB 
LDAB 
STAB 
INX 
CMPA 
BCS 
SUB 
LDAB 
STAB 


SSB 6888 TEXT PROCESSOR 


BTOD3 
B 

6,X 

GO 

B 

#10 
BTOD4 
A 

B 
BTOD3 
B 
BTOD45 
B 

8,X 
BUMP 

A 

@,X 
BUMP 
EXCHR 
O,X 
BUMP 
LSTNUM 
#NUM 
NUMPNT 


RETURN 


#°C 
#100 
BTORO2 


#40 
BTOROS5 
A 

#'X 
0,X 


#$38 SET HUNDRECS 
SAVE 

TO NEXT 

CLEAR REGISTER 
NUMBER > 180 


#16 SUB VALUE 
BUMP NUMBER 


ANY ? 


#$38 ADD BIAS 
SAVE TENS 

TO NEXT 

#$30 ADD IN BIAS 
SAVE ONES 
POINTER 

GET EXTRA 

SAVE IT 

TO NEXT 

SAVE POSITION 
POINT TO NUMBER 


ASCII ROMAN 


SET HUNDREDS 
NUMBER > 188? 


#188 SUBTRACT OFF 
SET 188 
TO NEXT 


CHECK FOR 9@ 


#98 SUBTRACT OFF 
PUT CHARACTER 
SET TENS 


SAVE IT 
TO NEXT 


CHECK FOR FIFTY 


#5@ SUBTRACT OFF 
SET 'L' | 
SAVE IT 

THE POINTER 
CHECK FOR 40 


#46 SUBTRACT OFF 
SET TEN 
SAVE IT 


MAL/68@06 1.2: 


DATE 


145E 
1468 
1462 
1463 
1464 
1466 
1468 
146A 
146C 
146E 
L46F 
1471 
1473 
1475 
1477 
1479 
147B 
1470 
147E 
147F 
1481 
1483 
1485 
1487 
1488 
148A 
148C 
148E 
1498 
1492 
1494 
1496 
1498 
1499 
149A 
149C 
149D 
149F 
14A] 
14A2 
14A3 
14A5 
14A7 
14A9 
14AB 
14AE 


14B@ 


14B2 
14B4 
14B5 
14B7 
14B9 


1468 


BTOROS 


BTORO6 


BTOR65 


BTORO7 


BTOROS 


BTOROY 


BTOR92 


BTODON 


TIME; Page 57; Form & 
C64C 166: 
E761 167: 
08 168: 
08 169; 
C658 176: 
810A 171: 
2507 172: 
86GA 173: 
E706 174: 
08 175: 
26F3 176: 
8109 177: 
250A 178: 
8089 179: 
E701 188: 
C649 181: 
E700 182: 
68 183: 
88 184: 
8165 185: 
2507 186: 
C656 187:. 
E769 188: 
88 189: 
8805 198: 
8104 191: 
2508C 192: 
8004 153: 
C649 194; 
E766 195: 
C656 196: 
E761 197: 
88 198: 
08 199: 
C649 2006: 
4D 201: 
2766 202: 
E76@ 263: 
88 204: 
4A 205: 
20F5 206: 
DF58 207: 
96B7 268: 
2A6E 209: 
CE@125 218: 
A600 211: 
8B20 212: 
A76® 213: 
08 214: 
9C56 215: 
26F5 216: 
7E142@ 217: 
218: 
219: 


220: 


* PUSH 


LDAB 
STAB 
INX 
INX 
LDAB 
CMPA 
BCS 
SUB 
STAB 
INX 
BRA 
CMPA 
BCS 
SUB 
STAB 
LDAB 
STAB 
INX 
INX 
CMPA 
BCS 
LDAB 
STAB 
INX 
SUB 
CMPA 
BCS 
SUB 
LDAB 
STAB 


LDAB | 


STAB 
INX 
INX 
LDAB 
TST 
BEQ 
STAB 


INX _ 
~ DEC 


BRA 
STX 
LDAA 
BPL 
LDX 
LDAA 
ADD 
STAA 
INX 
CPX 
BNE 
JMP 


SSB 6868 TEXT PROCESSOR 


Qnwrte OeYetovt P 
a 
a) 


« 


i 
xO 
a 
oe) 
wo 


ye 


BTORO8 
LSTNUM 
ROM 

BTODON 


~- #NUM 


0,X 

A 

0,X 
BUMP 
LSTNUM 
BTOR92 
BTOD5 


X ONTO STACK 


SET 58 
SAVE IT 
TO NEXT 


SET UP ‘Xx' 
CHECK TENS 


#16 SUBTRACT OFF 
SAVE 
POINTER 


CHECK IF 9 


#9 SUBTRACT 9 
SAVE CHARACTER 


TO NEXT 
CHECK FOR 5 
SET UP '‘'v' 
SAVE IT 
POINTER 


#5 FIX VALUE 
CHECK: FOR 4 


#4 SUBTRACT OFF 
SET UP 'I' 


_ SAVE CHARACTER 


SAVE 'V' 
POINTER 


TEST ONES 
SAVE I'S 
DONE? 


SAVE POINTER 
CHECK IF SMALL 


RESET POINTER 
GET CHARACTER 
#$2@ MAKE SMALL 
FUT BACK 

TO NEXT 
FINISHED? 


275: 


MAL/686@ 1.2: 14BD SSB 6808 TEXT PROCESSOR 
DATE TIME; Page 58; Form 8 
14BC 32 221: PUSHX PUL A GET RETURN ADR. 
14BbD 33 222: PUL B 
l4BE 97E7 223: STAA RETREG SAVE IT 
14C@ D7E8 224: STAB RETREG+1 
14C2 CFE9 225: STX INDEX SAVE X 
14C4 96E9 226: LDAA INDEX GET PART X 
14C6 C6EA 227: LDAB INDEX+1 
14C8 36 228: PSH A PUSH ON STACK 
14c9 37 2293 PSH B 
14CA DEE7 230: LDX RETREG GET RETURN 
14CC 6E@O 231 JMP 0,X RETURN 

232: 

233: * PULL X FROM STACK 

234: 
L4CE 32 235: PULLX PUL A GET RETURN ADR. 
14cCF 33 236: PUL B 
14D0 97E7 23i% STAA RETREG SAVE IT 
1462 DT7E& 238: STAB RETREG+1 
14D4 33 239: PUL B FULL X 
14D5 32 246: PUL A 
14D6 97E9 241: STAA INDEX SAVE X 
14bD8 D7EA 242: STAB INDEX+1 
l14DA 96E7 243: LDAA RETREG GET RETURN ADR. 
14DC D6E8 244: LDAB RETREG+1 
L4DE 37 2453 PSH B PUSH BACK ON 
14DF 36 246: PSH A 
1L4E@ DEE9 247: LDX INDEX LOALG UP X 
14E2 39 248: RTS RETURN 

249: 

250: * UNDERLINE COMMAND ..UL 

2513 
14E3 8601 252: UNDL LDAA #1 SET UL FLAG 
14E5 974E 253 STAA ULFLG 
14E7 39 254: RTS RETURN 

255% 

256: * 

257: * DISK COMMANDS FOLLOW 

258: 

259: * READ ITEM .RI [S] 

260 , 
14E8 S$64D 261: RDIT LDAA FILOPN FILE OPEN? 
14EA 2718 262: BEQ RDIT4 ao 
1l4EC 7F6888 263: CLR ~ CRSUP CLEAR SUP FLAG 
14EF 7F0036 264: CLR... GCNT CLEAR CHAR COUNT 
14F2 9787 265: STAA RIFLG SET FLAG 
14F4 Bb12A7 266: JSR LDNSKP SKIP JUNK 
14F7 BD12B5 267: JSR CLSFY CHECK CHARACTER 
14FA C182 268: CMPB #2 IS IT A LETTER? 
L4FC 2666 269: BNE RDIT4 
14FE 8153 278 CMPA #'S IS IT AN 'S'? 
150@ 26682 271: BNE RDIT4 
1562 9788 272: STAA CRSUP SET SUP FLAG 
1564 39 273: RDIT4 RTS RETURN 

274: 


MAL/68@@ 1.2: 1565 
DATE TIME; Page 59; Form 8 


1565 
1508 
150A 
150@C 
150F 
1511 


1512 
1514 
1516 
1519 
151B 
151B 
151E 
1526 
1522 
1524 
1525 
1527 
152A 
152C 
152E 
1530 
1532 
1535 
1537 


1538 
153A 
153C 
153F 
1541 
1543 
1544 
1546 
1549 
154B 
154D 
15 4F 
1552 
1554 
1556 
1558 
155A 
155D 
1566 
1562 


BD12A7 
8100 
2603 
B6O621B 
974C 
39 


964D 
2721 
BD12E9 
9665 
2681 
4c 
9789 
96 4B 
2613 
4C 
9787 
BD166F 
9634 
2609 
964A 
27F5 
7A8089 
26E9 
39 


964D 
2726 
BD12E9 
9665 
2661 
4C 
9789 
7D6@ 4B 
260F 
8661 
9787 
BD166F 
9634 
266C 
964B 
27F 1 
7F084B 
7A0889 
26E9 
39 


276: 
ZTd: 
278: 
279: 
280: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
290: 
291: 
292: 
293: 
294: 
295: 
296: 
297: 
298: 
299: 
309: 
3901: 
362: 
303: 
304: 
305: 
306: 
307: 
308: 
309: 
3196: 
311: 
312: 
3133 
314: 
3153 
316: 
3173 
3183. 
319: 
320: 
321: 
322: 
323: 
324: 
325: 
326: 
327: 
328: 
3293 
330: 


SSB 68@@ TEXT PROCESSOR 


* SET ITEM CHARACTER 


ITMCH JSR 
CMPA 
BNE 
LCDAA 
STAA 


RTS 


ITMCH2 


* NEXT ITEM 


NXTI LDAA 
BEQ 
JSR 
LDAA 
BNE 
INC 
STAA 
LDAA 
BNE 
INC 
STAA 
JSR 
LDAA 
BNE 


NXTI2 
NXTI3 


NXTI4 


LDAA | 


BEQ 
DEC 
BNE 
NXTI6 RTS 
* NEXT 
NXTB  LDAA 
BEQ 
JSR 
LDAA 
BNE 
INCA 
STAA 
TST 
BNE 
_LDAA 
| STAA. 
JSR 
LDAA 
BNE 
LDAA 
BEQ 
CLR 
DEC 
BNE 
RTS 


NXTB2 


NXTB4_ 


NXTB5 


NXTB6 


* CLOSE FILE 


BLOCK 


LDNSKP 
#$D 
ITMCH2 
ITEMCH 
ITEM 
RETURN 


eNI N 


FILOPN 
NXTI6 
CHKNUM 
INNUM 
NXTI 2 
A 
NCOUNT 
EORF 
NXTI6 
A 
RIFLG 
INCHR 
EOFF 
NXTI6 
EOIF 
NATI4 
NCOUNT 
NXTI3 


RETURN . 


-NB N 


FILOPN 
NXTB6 
CHKNUM 
INNUM 
NXTB2 


~~ SET 


NCOUNT 
EORF 
NXTB5 
#1 
RIFLG 
INCHR 
EOFF 
NXTB6 
EORF 
NXTB4 
EORF 
NCOUNT 
NXTB4 
RETURN 


CF 


eIC C 


GET NEXT 
END OF LINE? 


GET DEFAULT ITEM CHAKACTEF 


SET CHARACTER 


FILE OPEN? 


LOOK FOR NUMBER 


SET UP ONE 
SET ITEM COUNT 
CHECK IF EOR 


SET NON ZERO 
SET FLAG 

GET CHARACTER 
EOF? 


EOI? 


REPEAT TIL FOUND 
DEC THE COUNT 


FILE OPEN? 
LOOK FOR NUMBER 
DEFAULT 

SET COUNTER 
CHECK FOR EOR 
SET FLAG 


‘GET CHARACTER 
CHECK EOF 


CHECK EOR 
CLEAR FLAG 


DEC THE COUNT 
REPEAT TIL DONE 


MAL/6866 1.2: 1563 
DATE TIME; Page 68; 


1563 
1565 
1567 
156A 
156C 
156E 
1571 
1574 


1575 
1577 
1579 
157C 
157E 
1586 
1583 
1586 
1589 
158C 
158F 
1591 
15S4 
1596 
1598 
159B 
159D 
15 9F 
15A1 
15Az 


15A5 
15A7 
15A9 
15AB 
15AGB 
15AF 
15Bl1 
15B3 
15B5 
15B7 
15B8 
L5BA 
15BC 
15BE 
15C&@ 
15C2 
15C4 
15C6 


964D 
270D 
CE1CF7 
866 
A70@ 
BD16E4 
7F6@4D 
39 


964D 
2628 
BD12A7 
8190D 
26909 
CE1869 
BD1636 
BD15D5 
CEICF7 
BDB1712 
2511 
CE1CF7 
8604 
A76®@ 
BD16E4 
6605 
A799 
974D 
39 

7E6 3B9 


96A7 
9B 3B 
973B 
9 6A6 
9B38 
9738 
96A5 
9B78 
9776 
4F 

97A7 
97A6 
97A5 
96 3B 
9038 
9670 
81GE 
2262 


331: 
332: 
333: 
334: 
335: 
336: 
337: 
338: 
339: 
34; 
341: 
342: 
343: 
3443 
345: 
346: 
347: 
348: 
349: 
356: 
351: 
352: 
353% 
354: 
355: 
356: 
ab7¢ 
358: 
359: 
360: 
361: 
362: 
363: 
364: 
365: 
3663 
367: 
368: 
369: 
370: 
3713 
3723 
373: 
374: 
375: 
376: 
377: 
378: 
379: 
386: 
381: 
382: 
383: 
384: 
385: 


Form 8 


CLSFL 


CLSFL4 


* OPEN 
* 


OPNF 


OPNF5 


OPNF8 
OPNF6 


* FIX 


FIXWD 


LDAA 
BEQ 
LDX 
LDAA 
STAA 
JSR 
CLR 
RTS 


FILE 


LDAA 
BNE 
JSR 
CMPA 
BNE 
LDX 
JSR 
JSR 
LDX 
JSR 
BCS 
LDxX 
LDAA 
STAA 
JSR 
LDAA 
STAA 
STAA 
RTS 
JMP 


WIDTH 


LDAA 
ADD 


STAA 


LDAA 
ADD 
STAA 
LDAA. 
ADD 
STAA 
CLR 
STAA 
STAA 
STAA 
LDAA 
SUB 
SUB 
CMPA 
BHI 


SSB 6860 TEXT PROCESSOR 


FILOPN CHECK IF OPEN 


CLSFL4 
#DFCB 
#6 

®,X 
DODFM 


~OF [NAME] 


FILOPN 
OPNF8 
LDNSKP 
#$D 
OPNF5 
#NMST 
PSTRNG 
GIBUF 
#DFCB 
YFLSPC 
OPNF6 
#DFCB 
#4 

0,X 
DODFM 
#5 

0,X 
FILOPN 
RETURN 
DPROC3 


TLLN 


A 


LLN 
TIND 
A 
IND 
TSIN 
) oe 
SIN 
A 
TLLN 
TIND 
TSIN 
LLN 
A 

A 
#14 
FIXWD2 


SET FOR READ CLOSE 


CALL DFM 
FILOPN CLEAR STATUS 


CHECK IF OPEN 


GET NEXY 

IS IT CR? 

NOT CR SO MUST BE 
PCINT TO STRING 
OUTPUT IT 

GET RESPONSE 
POINT TO FCB 

GET FILE NAME 


ERROR? 


POINT TO FCB 
OPEN FOR READ 


CALL DFM 
SET FOR REAL 


SET FLAG 


GET TEMP LENGTH 
LLN ADD TO LENGTH 
SAVE NEW 

GET TEMP IND. 

IND ADD TO INDENT 
SAVE NEW. 

GET TEMP SIND. 
SIN ADD TO SIND. 
SAVE NEW 

CLEAR OLD VALUES 


GET LINE LENGTH 
IND SUB INDENT 
SIN SUB S IND. 
LESS THAN 15? 


SOMETHING 


THERE 


MAL/6806 1.2: 15CA 


SSB 6860 


TEXT PROCESSOR 


DATE TIME; Page 61; Form 8 
15C8 860F 386: LDAA #15 FORCE TO 15 
15CA 8196 387: FIXWD2 CMPA #156 >156? 
15CC 2382 388: BLS FIXWD3 
15CE 8696 389: LDAA #158 
15D8 97B9 390: FIXWD3 STAA WIDTH SAVE NEW WIDTH 
15D2 7E8@715 391: JMP FIXBFE GO FIX 
392: 
393: * GET INPUT CHARACTERS 
394: 
15D5 CE1A53 395: GIBUF LDx #SBUF POINT TO BUFFER 
15D8 5F 396: CLR B CLEAR COUNT 
15D9 37 397: GIBUF2 PSH B 
15DA BDG206 398: JSR INCH GET CHARACTER 
15DD 33 399: PUL B 
15DE 8118 408: CMPA #$18 CONTROL X? 
15E@ 271C 401: BEQ GIBUF6 
15E2 8115 402: CMPA #$15 OR CONTROL U? 
15E4 2718 463: BEQ GIBUF6 TREAT SAME AS “xX 
15E6 81@D 404: CMPA #SD C.R.? 
15E8 270A 465: BEQ GIBUF4 
15EA 811F 466: CMPA #S1F CONTROL CHAR. ? 
15EC 23EB 407: BLS GIBUF 2 
15EE 5C 408: INC B BUMP THE COUNT 
15EF A700 409: STAA @,X PUT CHARACTER 
15F1 08 410: INX BUMP THE POINTER 
15F2 20E5 411: BRA GIBUF2 REPEAT 
15F4 A7@G 412: GIBUF4 STAA 0,X PUT CHARACTER 
15F6 CE1A53 413: LDX #SBUF FIX POINTER 
15F9 DFD9 414: STX CMNPNT SAVE IT 
15FB D736 415: STAB  GCNT SAVE COUNT 
15FD 39 416: RTS. RETURN - __ 
15FE CE18@4 417: GIBUF6 LDX #QUSTR FOINT TO STRING 
1601 BD1636 418: JSR PSTRNG OUTPUT IT 
1664 20CE 4193: BRA GIBUF 
420: 
421: * TEST FOR BREAK 
422: 
1606 FEG213 423: TSTBRK LDX ACIADR GET ADDR OF CONSOL ACIA 
1609 276A 424: BEQ TSTPIA §@ => PIA, NOT ACIA 
160B A680 425: LDAA ~ 6,X READ ACIA CONTROL REGISTER 
160D 8461 426: ANDA #1 TEST RECEIVER BUFFER FULL 
166F 2719 427: BEQ TSTBR5 NOTHING YET 
1611 A6@1 428: LDAA 1,X READ CHARACTER RECEIVED 
1613 206A 429: _ _ BRA TSTBR6 CHECK FOR “C 
430: Se a: 
1615 B68004 431: TSTPIA LDAA $8004 GET STATUS 
1618 44 432: LSRA CHECK 
1619 2561 433: BCS TSTBR4 
161B 39 434; TSTBR2 RIS RETURN 
| 435: 
161C B68805 436: TSTBR4 LDAA $8605 | GET CHARACTER 
161F 847F 437: TSTBR6 ANDA’  #S7F MASK CHAR 
1621 8163 438: TSTBR5 CMPA #3 Is If °C? 
1623 26F6 439: BNE TSTBR2 
1625 CE1834 440: LDX #BRKSTR POINT TO STRING 


MAL/6806 1.2: 


162B 


DATE TIME; Page 62; Form 8 


1628 


162B 
162D 
1636 
1633 
1635 


1636 


1638 
163A 
163C 
163E 
1641 
1642 
1644 


1645 
1647 
1649 
164C 
164F 
1651 
1653 
1654 
1655 
1657 
1659 
16 5B 
165D 
165F 
1661 
1663 
1665 
1667 
1669 
166C 


7E@DA4 


DFEB 
CE17E5 
BD1638 
DEEB 
39 


SEE3 


7E 6203 
7E620F 


441; 
442: 
443: 
444; 
445; 
446: 
447: 
448; 
449: 
450: 
451: 
452: 
453: 
454: 
455: 
456: 
457: 
4583 
459: 
4686: 
461: 
462: 
463: 
464: 
465: 
466: 
467: 
468: 
469: 
476: 
471: 
472: 
473: 
474: 
475: 
476: 
A477: 
478: 
4793 
480: 
481: 
482: 
483: 
484: 
485: 
486: 


JMP 
* OUTPUT A 


STX 
LDX 
JSR 
LDX 
RTS 


CRLF 


* PRINT STRING 
PSTRNG BSR 

* PRINT DATA 
PDATA LDAA 
CMPA 
BEQ 
JSR 
INX 


BRA 
PDATA2 RTS 


* OUTPUT CHARA 


OUTCHR LDAB 
BEQ 
INC 
JMP 
LDAB 
BEQ 
RTS 
TST 
BPL 
CMPA 
BEQ 
BSR 
LDAA 
BSR 
LDAA 
ANDA 
LDAB 
BNE 
JMP - 
DOOUT2 JMP 


OUTCH2 


OUTCH3 


DOOUT 


SSB 6868 TEXT PROCESSOR 


STOP1 


XTEMP 


#CRLFST 


PDATA 
XTEMP 


RETURN 


CRLF 


0,X 

#4 
PDATA2 
OUTCH 
MOVE 
PDATA 
RETURN 


CTER 


DIVFLG 
OUTCH2 
DIVFL2 
OUTMAC 


NOOUT — 


OUTCH3 
RETURN 
A 
BDOOUT 


PRNTR 
DOOUT 2 
OUTCH 
POUCH 


CUTPUT IT 


C.R. AND L.F. 


SAVE X REG. 
POINT TO STRING 
OUTPUT IT 
RESTORE X 


OUTPUT CR & LF 


GET A CHARACTER 
Is IT TERM? 


OUTPUT IT 
TO NEXT 
REPEAT 


DIVERTING? 


SET FLAG 
OUT TO MACRO 
DO OUTPUT? 


CHECK PARITY 
IS IT SPACE 


OUTPUT CHAR 
SET UP BACKSPACE 
OUTPUT IT 
SETUP UNDER LINE 
MASK CHAR. 

TO PRINTER? 


OUT TO TERM 
OUT TO. PRINTER 


MAL/6866 1.2: 


166F 


DATE TIME; Page 63; Form 9 


166F 
1676 
1672 
1675 
1677 
167A 
167C 
167F 
1681 
1682 


1683 
1686 
1688 
168A 
168C 
16 8F 
1696 
1692 
1694 
1697 
1699 
16 9B 
163D 
16A9 
16A2 
16A4 
16A6 
16A7 
16A9 
16AB 
16AD 
16AF 
16B1 
16B3 
16B5 
16B8 
16BA 
1L6BC 
16BF 
16C1l 
16C 3 
10C5 
16C7 
16C9 
L6CC 
16CF 
16D 
16D2 


37 
DFEB 
7D0087 
260C 
CE1C51 
DF 8B 
BD16D3 
DEEB 
33 

39 


CEICF7 
DF 8B 
964B 
2708 
7E 6687 
33 
DEEB 
20DB 
BD16D3 
266D 
914C 
2624 
7DO@84A 
2769 
8661 
97 4B 
4F 
9787 
20D4 
8601 
974A 
9688 
2707 
97B2 
7F 6988 
20DZ 
8608D 
7F 0087 
200E 
D64A 
2707 
816D 
27C6 
7FO64A 
706936 
33 
DEEB 
39 


SSB 6868 TEXT PROCESSOR 


* INPUT A CHARACTER 


INCHR 


INCHR2 


* DATA 


DATIN 


DATIN2 
DATI25 


DATIN3 


DATI35 


DATIN4 


DATINS 


DATIN6 


DATIN7 
DATINS 


PSH 
STX 
TST 
BNE 
LDX 
STX 
JSR 
LDX 
PULB 
RTS 


B 

XTEMP 
RIFLG 
DATIN 
#TFCB 
INFCB 
DREAD 
XTEMP 


RESTORE 


RETURN 


IN FROM DISK 


LDX 
STX 
LDAA 


#DFCB 
INFCB 
EORF 
DATIN3 
RIFLG 
B 
XTEMP 
INCHR 
DREAD 
DATI35 
ITEM 
DATIN6 
EOIF 
DATIN4 


DATINS5 
ENDLIN 
CRSUP 

DATIN2 


XTEMP 
RETURN 


FOINT TO TEXT FCB 
SET INPUT FCB 
DO DISK READ 
RESTORE X 

B 


SET DATA FCB 
CHECK FOR EOR 


CLEAR MODE 
RESTORE REGS 


DO IN CHAR 

DO DISK READ 
EOF? 

IS IT ITEM CHAR? 


TST EOI FLAG 


SET EOR FLAG 


CLEAR MODE 
RETURN 


SET EOI 
SUP ON? 


FLAG 


SET END LINE 
CLEAR FLAG 


SETUP CR 
CLEAR MODE 


CHECK EOI 


IS IT CR? 


BUMP CHAR COUNTER 
RESTORE B 
RESTORE X 


MAL/68@00 1.2: 16D3 SSB 6860 TEXT PROCESSOR 
DATE TIME; Page 64; Form 9 
56: * DISK REAL CHARACTER 
57s 
16D3 DE&B 58: DREAD LDX INFCB SET FCB 
16b5 8D6D 59% BSR LODFM CALL DFM 
l16D7 2664 60: BNE DREAD2 
16D9 811A 61: CMPA #S1A END OF FILE? 
16DE 2685 62: BNE DREAD4 
16DD C6dl 63: DREAD2 LDAB #1 SET EOF FLAG 
l6DF D734 64: STAB EOFF 
16E1 39 653 RTS RETURN 
l16E2 SF 66: DREAD4 CLRB SET ZERO 
16E3 39 67: RTS RETURN 
68: 
69: * DO DFM CALL 
70: 
l6E4 ED*238 71: DODFM JSR DFM CALL DFM 
l€E7 2601 72:3 BNE DODFM2 ERROR? 
l6E9 39 733: RTS RETURN 
l6EA A661 74: DODFM2 LDAA 1,X 
l6EC 8166 753 CMPA #6 IS IT EOF? 
l6EE 2663 76: BNE DODFM4 
16F8 861A 773 LDAA #S1A SET EOF CHAR 
l16F2 39 78:3 RTS RETURN 
16F3 BD@232 79: DODFM4 JSR ZTYPDE REPORT ERROR 
16F6 BD#@235 803 JSR CDFM CLOSE DFM 
l6F9 7E9269 81; JMP MON RETURN TO DOS 
82: 
83: * REWIND FILE 
84: 
l6FC CE1C51 85: RWND LDX #TFCB POINT TO FCB 
1loOFF 8666 86: LDAA #6 CLOSE FILE 
1761 A766 873 STAA Q,X wees 
1703 BD16E4 88: JSR DODFM CALL DFM 
1706 8664 89: LDAA #4 OPEN FOR READ 
1708 A760 9Q: STAA 0,X 
17@A BD16E4 91; JSR DODFM CALL DFM 
17@0D 86@5 92: LDAA #5 SET FOR READ 
17@F A79@@ 93: STAA O,X 
1711 39 94; RTS RETURN 
95: —— ee —_ 
96: * PR'S VERSION FOR DOS68'S "ZFLSPC" 
0083 97: XFN EQU $63 OFFSET TO FILE NAME 
0026 98: XDB EQU $26 CONTROL INFO LENGTH 
0882 99: XUN EQU $62 OFFSET TO UNIT # 
100: a 
1712 CEI1CF7 1@1: YFLSPC LDX #DFCB CLEAR. OUT THE FCB 
1715 C626 102: LDAB #XDB 
1717 6F60 103: CLR 0,X 
1719 98 104: INX 
171A 5A 105: DECB 
171B 26FA 196: BNE *—4 
107: 
171D DED9 108: LDX CMNPNT CHECK FOR UNIT # 
171F A681 109: LDAA 1,X PEEK AHEAD 
1721 813A 119: CMPA $78 UNIT DELIMITER? 


MAL/6866 1.2: 


DATE 


1723 
1725 
1727 
1729 
172B 
1720 
172F 
1732 
1733 
1734 


1736 
1739 
173B 
173B 
1746 
1742 
1744 
1745 
1746 
1748 
1749 


174A 
174C 
1745 
1751 
1753 
1756 
1758 


175A 
175B 


175C 
175E 
1766 
1762 
1764 
1766 
1767 
1769 
176B 


1725 


TIME; Page 65; 


2611 
A60@ 
8830 
251D 
8162 
2219 
B71CF9 
08 

08 
DFD9 


CEICF7 
C667 
65D1F 
BD@22F 
2588 
A763 
08 

5A 
26F 3 
OC 

39 


812E 
266C 
CE1CFLD 
C604 
7D1DOB 
27E3 
20EE 


BC 
39 


DF8D 
DED9 
A608 
810D 
2793 
08 

DFD9 
DE8D 
39 


lll: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 


Form 9 


119: 


120: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
136: 
131: 
132: 
133: 


134: 


135: 
136: 
i37: 
138: 
139: 
148: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
156: 
151: 
152: 
153: 


YFL1 


FS5 


FSFX 


FS7 


FSOKX 


YGNCHR 


YGNC 


BNE 
LDAA 
SUBA 
BCS 
CMPA 
BHI 
STAA 
INX 
INX 
STX 


LDX 
LDAB 
BSR 
JSR 
BCS 
STAA 
INX 
DECB 
BNE 
SEC 
RTS 


CMPA 
BNE 
LDX 
LDAB 
TST 
BEQ 
BRA 


CLC 
RTS 


STX 
LDX 
LDAA 
CMPA 
BEQ 


-INX 


STX 
LDX 
RTS 


SSB 6888 TEXT PROCESSOR 


YFL1 NO UNIT # 

O,X GET UNIT # 

#'O 

FSFX IF < '@ THEN ERROR 

#2 IF > '2 THEN ERROR 

FSFX 

DFCB+XUN @,1, OR 2; USE AS UNIT # 
GET RID OF "N:" 

CMNPNT 

#DFCB GET POINTER FOR STORING FILE WAME 

#7 MAX CHARACTERS+1 

YGNCHR GET NEXT CHAR FROM FILE NAME/EAT 

ZANCHK ALPHA-NUMERIC? 

FS7 NO, END OF FIELD 

XFN,X NOT END, STORE AS PART OF FIELL 
CHECK FOR OVERFLOW 

FS5 
ERROR EXIT 

#'. END OF FILE NAME? 

FSOKX NO, MUST END OCF WHOLE THING 

#DFCB+6 ETR FOR STORING FILE EXTENSION 

# 4. MAX EXT SIZE+1 

DFCB+XFN+6 HAVE WE BEEN HEf& BEFORE? 

FS5 NO, MUST BE WORKING ON EXT NOW 

FSFX OOPS, CANNOT HAVE "FILENAME. EXT. & 
OK EXIT 

XTEMP2 SAVE FCB PTR 

CMNPNT -> INPUT STRING 

0,X GET NEXT CHAR TC PROCESS 

#13 CR? 

YGNC YES, DON'T ADVANCE 

a ADVANCE 

CMNPNT 

XTEMP2 


RESTORE X REG 


MAL/68@0@ 1.2: 176C SSE 68980 TEXT PROCESSOR 
DATE TIME; Page 66; Form 18 


1: * STRINGS 


2: 
176C 26202653 3: BANNER FCC is SMOKE SIGNAL BROADCASTING" 
1788 ODA 4; FCB 13,16 
178A 26203638 5: FCC " 6880 TEXT PROCESSING SYSTEM" 
17A7 6D@BA 6: FCB 13,19 
17A9 20202022 73 FCC e VERSION " 
17BB 04 8: FCB 4 
9: 

17BC 44415445 10: DATSTR FCC ‘DATE (MM:DD:YY)? ' 
17CD 04 ll: FCB 4 
L7CE 54595645 12: PRQU FCC ‘TYPE P FOR PRINTER... 
l7E4 64 13: FCB 4 
L7E5 ODOAGBOA 14: CRLFST FCB SD,SA,6,0,8,0,4 
L7EC 5@414745 15: PGSTR FCC ‘PAGE LIMITS? ' 
17F9 04 16: FCB 4 
L7FA 67 17: STPSTR FCB 7 
L7FB 53544F5@ 18: FCC "STOP. sve 
1862 0704 19: FCB 7,4 
1804 3F28 20: QUSTR FCC ee cae 
1806 0704 21: FCB 7,4 
1808 4C494E45 22: LPPSTR FCC ‘LINES PER SCREEN? ' 
181A 64 23: FCB 4 
181B 2A2A2A2A 24: OVFSTR FCC 'kx*k*k MACRO OVERFLOW ****' 
1833 @4 25:3 FCB 4 
1834 2E2E4252 26: BRKSTR FCC ‘, —BREAK..' 
183D @4 27:3 FCB 4 
183E 494C4C45 28: ILFN FCC ‘ITLLEGAL FILE NAME' 
184F 04 29:3 FCB 4 
1850 4348414E 38: CHST FCC ‘CHANGE DISKS AND HIT KEY' 
1868 64 31% FCB 4 a. 
1869 44415441 32: NMST FCC | "DATA FILE NAME? ' 
1879 @4 33% FCB 4 
187A 4D414352 34: MACST FCC "MACRO! 
187F GOB06608 35: FCB 0,0,0,G 

36: 

37: *PRINTER ROUTINES 

38: 
1883 39 39: PRNIT RTS ak REPLACE WITH OWN 
1884 @01F 46: RMB 331 

4l: 
18A3 39 42: PROUCH RTS wk REPLACE WITH OWN 
18A4 @G61F 43: RMB 31 TMP - bS1e- 

44; al 

45: * BUFFER STORAGE AREA 

46: - 
18C3 @@9B 47: LINBUF RMB 155 
195E @@2D 48: EXTBUF RMB 45 
198B 9@8C8 49: LINBU2 RMB 280 
1A53 66064 58: SBUF RMB 168 
lAB7 60380 51: TRAPS RMB 48 
lAE7 0062 52: TRPEND RMB 2 
lAE9 6OR4 53: CMNDBF RMB 180 
1B9D @0B4 54: TTILBUF RMB 180 


1C51 @O@A6 55: TFCB RMB 166 


MAL/6860 1.2: 1D9D 
CATE TIME; Page 67; 


1CF7 ®6A6 
1D9D 6106 
1E9D 6862 


1ESF 


*xk* No Errors. 


56: 
Sis 
58: 
59: 
60: 
61: 
62: 


Form 19 


DFCB 
MACTBL 
MTEND 


ENDTP 


RMB 
RMB 
RMB 
EQU 


END 


SSB 6886 TEXT PROCESSOR 


END OF FIXED TEXT PR. 


SPACE 


THE TEXT PROCESSOR DISC 


The disc containing the text processor contains the following 
three versions of the text processor: 


PR.S 
PRA.S 
PRC.S 


These three files differ only in that "PR.$" is set up to use 
LOS68 in the S$6@@0-S7FFF range, "PRA.$" is set up to use DOS6& in 


the SA®6@-SBFFF range, and "PRC.$" is set up to use LOS68 in the 
SCOOO-SDFFF range. 


